Sub Regs()
Dim RegEx As Object
Set RegEx = CreateObject("VBScript.regexp")
Dim s, mat
s = "399295078"
RegEx.Pattern = "^((?!2950).)*$"
RegEx.Global = True
MsgBox RegEx.test(s)
Set RegEx = Nothing
End Sub
如果匹配2950，则返会false,否则为true。
其中，(?!2950)表示不匹配2950,
而^表示匹配字符串的开始位置，
.表示匹配除 "\n" 之外的任何单个字符，
$表示匹配字符串的结束位置，
*表示匹配前面的子表达式零次或多次。
整个匹配式连起来就是：匹配空值或者匹配不含2950的字符串。
其中(?!2950)后面必须加一个“.”，那么(?!2950).表示不含2950且至少有一个字符。其实整个就是(?!2950)和(.)*的组合，（.)*表示空串或者任意一个串（不包含\n）。
