Hi Robert,

Am Thu, 10 Oct 2019 12:54:25 +0200 schrieb Claus Busch:

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

another way is to use regex:

Sub Test()
Dim s As String
Dim re As Object, varMatches As Variant

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

Set re = CreateObject("vbscript.regexp")
re.Pattern = "\d+\b"
re.Global = True
Set varMatches = re.Execute(s)
End Sub


Regards
Claus B.
--
Windows10
Office 2016