Something like this? (Untested air code.)

Dim s1 As String, s2 As String, s3 As Variant
s1 = Trim(Replace(s, vbTab, " "))
Do
s2 = s1
s1 = Replace(s2, " ", " ")
Loop While Len(s1) < Len(s2)
s3 = Split(s1)


Yes! The air code works fine! Thank you Air Master! ;)