Запретить ввод определенных символов.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
'Replace the '!@#$%^&*()_+=' какие символы игнорировать
sTemplate = "!@#$%^&*()_+="
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub