text split(regular expressions)

Sub SplitText()

    Dim r As Range
    Dim Matches As Object
    Dim matchCount As Integer

    Set r = Range("A1")
    
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d+\s\D+"
        .Global = True
        
        Set Matches = .Execute(r.Value)
        
        For matchCount = 1 To Matches.Count
            r.Offset(matchCount + 1).Value = Matches(matchCount - 1)
        Next
        
    End With
    
End Sub

pattern is correct?

Please advise the correct code.