membatasi input textbox hanya dengan angka pada vb 6

kadang kala error terjadi dikarenakan kesalahan user yang menginput tidak sesuai dengan data yang dibutuhkan sistem(waktu awal belajar pemrograman visual basic), seperti menginput karakter pada textbox jumlah barang(keceplosan tuh usernya .hhihi) sehingga data yang diinput tidak dapat diproses. pada artikel ini akan saya coba bahas script untuk membatasi angka pada textbox menggunakan kode ASCII (American Standard Code for Information Interchange).Apa itu kode ascii ?
ok, langsung aja kita buat project baru pada vb 6 tentunya :)
pada form yang baru dibuat masukkan textbox lalu buka jendela kode, pilih Text1 pada object dan pilih KeyPress pada procedure lalu ketik script berikut:

If Not ((KeyAscii >= 48) And (KeyAscii <= 57) Or KeyAscii = 8) Then
    KeyAscii = 0
End If

artinya jika bukan keyascii lebih besar sama dengan 48 dan keyascii kurang sama dengan 57 (keyascii bukan antara 48 sampai 57)  atau keyascii = 8 maka keyascii = 0
hasilnya pada textbox hanya bisa diinput angka 0 sampai 9 dan backspace, sehingga dapat mencegah terjadinya error akibat user (human error).
keyascii 48 sampai 57 adalah angka (0-9), sedangkan keyascii 8 adalah backspace.

silahkan download contoh projectnya disini.