‘名字字符检验
Public Function CheckName(Str)
Checkname=True
Dim Rep,pass
Set Rep=New RegExp ‘ 建立正则表达式。
Rep.Global=True ‘设置全局可用性。
Rep.IgnoreCase=True’设置是否区分字符大小写
‘设置模式。
Rep.Pattern=”[u0009u0020u0022-u0028u002C-u002Eu003A-u003Fu005Bu005Cu0060u007Cu007Eu00FFuE5E5]”
Set pass=Rep.Execute(Str) ‘对指定的字符串执行正则表达式搜索。