vba中的正则表达式如何处理全局属性

    Sub 测试()
    
    Dim my_str$, mt, mh, sub_str$
    Set reg = CreateObject("vbscript.regexp")
    
    my_str = "我人民币大写：123656.00。小写：123654.03 " & _
             "中介人民币大写：800.36公司日丰人民币大写：36659.32.日韩地晶上 "
    
    With reg
        .Pattern = "(人民币大写：)(\d+\.[0-9]{1,3})"  '正则表达式        
        .Global = False  '非全局匹配，匹配到一个后就结束        
        .IgnoreCase = False  '不忽略大小写
        
        Set mh = .Execute(my_str)  '执行匹配
    End With
    
    For i = 0 To mh.Count - 1
        sub_str = sub_str & mh(i).SubMatches(1) & "  "  'SubMatches：匹配到的字符串中的分组表达式
    Next