【来日复制粘贴】输出匹配到的字符串

目前用正则还是很少，用到的话 一般也是replace那个函数。一直头疼我要输出找到的东西咋整？原来是用数组搞定。代码如下，

Sub RegTest()

    '定义正则表达式对象

    Dim oRegExp As Object

    '定义匹配字符串集合对象

    Dim oMatches As Object

    '创建正则表达式

    '定义要执行正则查找的文本变量

    Dim sText As String

    sText = "a,chia ko"

    Set oRegExp = CreateObject("vbscript.regexp")

    With oRegExp

        '设置是否匹配所有的符合项，True表示匹配所有, False表示仅匹配第一个符合项

        .Global = True

        '设置是否区分大小写，True表示不区分大小写, False表示区分大小写

        .IgnoreCase = True

        '设置要查找的字符模式

        .Pattern = ",[b-z].*"

        '判断是否可以找到匹配的字符，若可以则返回True

        MsgBox .test(sText)

        '对字符串执行正则查找，返回所有的查找值的集合，若未找到，则为空

        Set oMatches = .Execute(sText)

        '把字符串中用正则找到的所有匹配字符替换为其它字符

        MsgBox oMatches(0)  '**************************************************找匹配到的字符
    End With

    Set oRegExp = Nothing

    Set oMatches = Nothing

End Sub

效果：