VB中正则表达式的SubMatches、matches和MatchCollection的使用

今天工作使用到，所以就解决了这个问题，标记下来：
Dim reInfo As RegExp '正则对象
Dim MatchInfo As MatchCollection, objMatch As Match, objSubMatch As SubMatches
……
Set MatchInfo = reInfo.Execute(ShopInfo) 'MatchInfo是结果集合
Set objMatch = MatchInfo.Item(1) 'objMatch是单个的返回结果
Set objSubMatch = objMatch.SubMatches 'objSubMatch是子结果集合，当pattern使用扩号时扩号的匹配项将保存在objSubMatch里。
Me.MSFlexGrid.TextMatrix(r, 1) = objSubMatch(1)

如：strPattern = "<b>(别名|地址|电话)/:</b> (.+)<br />"
匹配：<b>电话:</b> 010-640718<br />
结果：objSubMatch(0) = 电话 objSubMatch(1) = 010-640718 objMatch ="<b>电话:</b> 010-640718<br />"