请重点说明，不要复制，要不不给分，什么意思，怎么创建，如何用到实例对象上

上面那个不是vb的吧.改成vb是
先引用Microsoft VBScript Regular Expressions
Function SanitizeInput(forStr As String) As String
Dim reg As New RegExp

reg.IgnoreCase = True '&&设置是否区分字符大小写
reg.Global = True '&&设置全局可用性
reg.MultiLine = True '5.5 版本才有
reg.Pattern = "[<>\x22'%;()&]" '<>"'%;()&中的任何一个字符

SanitizeInput = reg.Replace(forStr, "") '替换成空

Set reg = Nothing
End Function

例如你的文本框是 text1
原来的引用是 =text1.text
现在改成 =SanitizeInput(text1.text)
功能是: 把原来输入的<>""'%;() 中替换成空,保留其他字符

如果希望输入的时候就过滤
就在text1的change事件或者keyup事件里面加
text1.text=SanitizeInput(text1.text)

如果希望输入的字符中出现了<>""'%;() 中的任一个,则取到的字符全部为空
就使用下面的函数
Function SanitizeInput(forStr As String) As String
Dim reg As New RegExp

reg.IgnoreCase = True '&&设置是否区分字符大小写
reg.Global =