Extracting Numbers from text string

PL see file. UDF GetNumber is used.
code

Function GetNumber(Ipval As String) As String
Dim M As Variant
M = Split(Ipval)

For T = 1 To UBound(M)
    If IsNumeric(Left(M(T), 1)) Then
    GetNumber = M(0) & " - " & M(T)
    Exit For
    End If

Next T
End Function