Membatasi hanya angka pada textbox VB6

Kali ini saya akan membagikan cara untuk membatasi hanya angka pada textbox VB6 dengan menggunakan bahasa pemrograman Visual Basic 6. Pada program inidigunakan agar terjadi error sedikit mungkin pada program yang akan dibuat. seringnya user tidak mengetahui cara dan karakter apa saja yang dapat diinputkan pada textbox membuat program ketika dijalankan menjadi error, sehinggi kadang kala membuat programer kerepotan. semoga ilmu yang saya sharingkan ini bisa menambah wawasan bagi para pembaca semuanya.

prosedur :

Public Sub JustNumber(ByRef KeyAscii As Integer)
    If ((KeyAscii < 48 And KeyAscii <> 8) Or KeyAscii > 57) Then
        KeyAscii = 0
    End If
End Sub

cara memanggilnya pada textbox yang telah dibuat pada form di Visual Basic 6

Private Sub Text5_KeyPress(KeyAscii As Integer)
  JustNumber KeyAscii

End Sub

demikian ilmu membatasi hanya angka pada textbox VB6 yang saya sharingkan, semoga bermanfaat bagi pembaca sekalian.