TextBox Hanya Menerima Input Angka - ( 1 )

Source code berikut ini digunakan untuk membatasi penulisan pada textbok hanya menerima input angka. Bisanya digunakan untuk penulisan nomor telepon atau kode pos.

Buat suatu project dengan :
1 Form
1 TextBox

Copy source code berikut pada Form :

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
   InputAngka KeyAsciiEnd Sub