将要剔除的字符统统放在一个字串中，只要一个 IF 判断即可，本例子不包括粘贴特殊字符。

新建From1（窗体），新建Text1（TextBox），代码：

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim sTemplate As String
    sTemplate = "!@#$%^&*()_+-="    '用来存放不接受的字符
    If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then
        KeyAscii = 0
    End If
End Sub