Validasi Karakter Asterik di Vb6.0 pada text box

trik kali ini adalah membuat validasi asterik yang fungsinya untuk memblok kata - kata asterik pada text box seperti ",/?;';][=-\ dan lain - lain:

ikuti contoh di bawah pada even keypress masukan kode seperti di bawah ini

Private Sub text1_KeyPress(KeyAscii As Integer)
''''''awal kode
If InStr("0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ,", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
''''''akhirkode
End If


mudah2 and trik ini sedikit membantu
kritik dan saran ke ibaskorn@gmail.com