Membatasi Input hanya Numeric

ada kalanya dalam membagun aplikasi ada input yang hanya bolrh di isi dengan Angka saja (0 - 9),contoh untuk input nomor telepon ,NIP dll. kali ini saya akan sedikit berbagi tentang hal di atas

1. Klik Ganda Pada Textbox yang ingin dibatasi Inputnya dalam contoh ini saya gunakan text1
2. Ganti Event change menjadi keypress
3. ketik perintah dibawah ini


Private Sub text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")
_ Or KeyAscii = vbKeyBack) Then
beep
KeyAscii =0
end if
End Sub

Selamat mencoba