TextBox Hanya Menerima Input Angka - (2)

Source code berikut ini digunakan untuk membatasi penulisan pada textbok hanya menerima input angka. Bisanya digunakan untuk penulisan nomor telepon atau kode pos. Pada tulisan sebelumnya sudah pernah dibuat , tapi yang satu ini dengan cara yang lain.

Buat suatu project dengan :
1 Form
1 TextBox

Copy source code berikut pada Form :

Private Sub Text1_KeyPress(KeyAscii As Integer)
   Dim strKey As String
   strKey = "0123456789"
   If KeyAscii > 26 Then
      If InStr(strKey, Chr(KeyAscii)) = 0 Then
         KeyAscii = 0
         Exit Sub
      End If
   End If
End Sub