函   数:

Public Function RegExpDemoSyntax(str) As Boolean
    Dim objRegEx As Object
    Dim objMH As Object
    Dim j As Long
    
    Set objRegEx = CreateObject("vbscript.regexp")
    objRegEx.Pattern = "姓名：(.*?)，分数：(.*?)；"
    objRegEx.Global = True
    
    Set objMH = objRegEx.Execute(str)
    
    If objMH.Count > 0 Then
        For j = 0 To objMH.Count - 1
            With objMH(j)
                Debug.Print .submatches(0) & "的分数是" & .submatches(1)
            End With
        Next
    End If
    RegExpDemoSyntax = True
    Set objRegEx = Nothing
End Function

RegExpDemoSyntax "姓名：张三，分数：80；姓名：李四，分数：90；姓名：王五，分数：100；" '字符串的格式需要与objRegEx.Pattern匹配

示   例: