Данный код запрещает ввод символов "!@#$%^&*()+=" в текстовое поле:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate
sTemplate = "!@#$%^&*()+="
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub