'有除中英文数字下划线以外的字符
If(Not RegExpTest("^[A-Za-z0-9_\u4e00-\u9fa5]+$" , userName)) Then 
checkUserName = 6
Exit Function
End If
这样的似乎有个问题\x20
 使用 2 位 16 进制数匹配 ASCII 字符。此例中,\x2- 表示空格。
 
\cC
 匹配 ASCII 控制字符,此例中是 ctrl-C。
 
\u0020
 使用 4 位 16 进制数匹配 Unicode 字符。此例中 \u0020 是空格。
 但是传递来的userName编码可能不一定有什么办法能解决吗?