说明
Match对象只能通过RegExp对象的Execute方法来创建，该方法实际上返回了Match对象的集合。所有的Match对象属性都是只读的。
在执行正则表达式时，可能产生零个或多个Match对象。每个Match对象提供了被正则表达式搜索找到的字符串的访问、字符串的长度，以及找到匹配的索引位置等。
下面的代码说明了Match对象的用法：
FunctionRegExpTest(patrn,strng)
DimregEx,Match,Matches'建立变量。
SetregEx=NewRegExp'建立正则表达式。
regEx.Pattern=patrn'设置模式。
regEx.IgnoreCase=True'设置是否区分大小写。
regEx.Global=True'设置全局替换。
SetMatches=regEx.Execute(strng)'执行搜索。
ForEachMatchinMatches'遍历Matches集合。
RetStr=RetStr&"Match"&I&"foundatposition"
RetStr=RetStr&Match.FirstIndex&".MatchValueis"'
RetStr=RetStr&Match.Value&"'."&vbCRLF
Next
RegExpTest=RetStr
EndFunction
MsgBox(RegExpTest("is.","IS1is2IS3is4"))
