vba正则表达式提取以"B0“开头的10个字符串

Sub ExtractString()
    Dim inputString As String
    Dim regexPattern As String
    Dim regex As Object
    Dim matches As Object
    Dim match As Object
    
    ' 输入字符串
    inputString = "这是一个示例字符串，B0ABCDEF12是以B0开头的字符串，B0GHIJKLMN3也是以B0开头的字符串。"
    
    ' 正则表达式模式
    regexPattern = "B0\w{8}"
    
    ' 创建正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    
    With regex
        .Global = True ' 匹配所有符合条件的字符串
        .Pattern = regexPattern
    End With
    
    ' 执行匹配操作
    Set matches = regex.Execute(inputString)
    
    ' 遍历匹配结果
    For Each match In matches
        Debug.Print match.Value
    Next match
End Sub