Sub Test()
Dim s As String
Dim varMatches As Variant

s = " 1200 " & vbTab & " 300 25 2 4" & vbTab & vbTab & "1000 "

s = Replace(s, vbTab, " ")
s = Application.Trim(s)
varMatches = Split(s, " ")
End Sub


Yes! I like this solution because it's short and sweet, and the built-in functions do most of the work.

Thank you yet again Claus!