Put this in new module
Function ExNumFromTxt(ByVal mystr As String)
Dim y As Integer, h As Integer
'mystr = "Year 2001 Mileage 2500 m/h Power "
'================================
On Error Resume Next
Dim ary() As String
Dim I As Integer
ary = Split(mystr, " ")
For I = 0 To UBound(ary)
If...