Excel VBA使用正規化取得字串內容

一次的意外發現，原來VBA中也可以使用Regular Expression，以下使用個範例來幾單說明使用，後續再補充完整的內容

Option Explicit

Private Sub TestReg()
    Dim reg As Object
    Dim mc As Object
    Dim m As Object
    
    Set reg = CreateObject("vbscript.regExp")
    With reg
        .Global = True
        .IgnoreCase = True
        .Pattern = "\d+"
    End With

    Set mc = reg.Execute("123aaaaa987uiiui999")
    For Each m In mc
        MsgBox m.Value
    Next
End Sub