RegEx Parse

regexparse.bas

Sub RegExParse()
    Dim RE As Object, REMatches As Object
    Dim pattern As String
    Set RE = CreateObject("vbscript.regexp")
    pattern = "\[(.*?)\] \["
    
    
    With RE
        .MultiLine = False
        .Global = False
        .IgnoreCase = True
        .pattern = pattern
    End With
    
    Dim x As Integer
    x = 1
    Do While Range("A" & x).Value <> ""
        Set REMatches = RE.Execute(Range("A" & x).Value)
        Range("B" & x).Value = REMatches(0).SubMatches(0)
        x = x + 1
    Loop
    
End Sub