Menghindari Input Karakter Tertentu

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	TextBox	1	Text	""	kosongkan

Masukkan souce ini ke dalam Form :Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sTemplate As String 'Ganti "~!@#$%^&*()_+=" dengan karakter yang Anda inginkan untuk 'dihindari diinput pada Text1 sTemplate = "~!@#$%^&*()_+=" If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then Beep KeyAscii = 0 End If End Sub