Membatasi Penginputan Karakter di TextBox

Seringkali user salah melakukan penginputan karakter di program yang telah kita buat yang sering kali menyebabkan program error saat dijalankan. Misalnya memasukkan abjad ke dalam field yang bertipe data angka. Untuk itu, ada baiknya programmer membatasi penginputan karakter untuk meminimalisir error program saat run time.

Berikut ini merupakan contoh kode program yang mengizinkan user hanya melakukan angka (0-9).
Private Sub text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or _
KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then
Beep
KeyAscii = 0
End If
End Sub