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 />"