Sub Test()                        '  macht aus "ABC 123" --> "ABC == 123"
    Dim oMatch As Object
    Dim iCount As Integer
    Dim oCell As Range
    Dim sPattern As String

    Set oCell = Application.ActiveCell
    sPattern = "(\w*) (\d*)"

    StringRegExp oCell.Value, sPattern, oMatch
    iCount = oMatch.Count

    If iCount > 0 Then
        oCell.Value = oMatch.Item(0).SubMatches.Item(0) & " == " & oMatch.Item(0).SubMatches.Item(1)
    End If

    Set oMatch = Nothing
End Sub


Sub StringRegExp(sString As Variant, sPattern As String, oResult As Object)
    Dim oRegEx As Object

    Set oRegEx = CreateObject("VBscript.RegExp")
    With oRegEx
        .MultiLine = False
        .Global = False
        .IgnoreCase = True
        .MultiLine = True
        .Pattern = sPattern
        Set oResult = .Execute(sString)
    End With
End Sub