FunctionRegExpTest(patrn,strng)

DimregEx,Matches

SetregEx=NewRegExp

regEx.Pattern=patrn

regEx.IgnoreCase=True‘为真则忽略大小写，否则严格匹配大小写

regEx.Global=True

SetMatches=regEx.Execute(strng)

RegExpTest=Matches.count

EndFunction

MsgBox(RegExpTest("is.","IS1is2IS3is4"))