如何使用vba在字符串中发现字母数字单词时拆分字符串？

Sub SplitString()
    Dim inputString As String
    Dim regex As Object
    Dim matches As Object
    Dim match As Object
    Dim result As String
    
    ' 输入字符串
    inputString = "Hello123World456"
    
    ' 创建正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 设置正则表达式模式，匹配字母数字单词
    regex.Pattern = "\w+"
    
    ' 执行正则表达式匹配
    Set matches = regex.Execute(inputString)
    
    ' 遍历匹配结果
    For Each match In matches
        ' 将匹配到的单词添加到结果字符串中
        result = result & match.Value & " "
    Next match
    
    ' 输出结果
    MsgBox result
End Sub