Mega Code Archive
Excel has built-in options to read files where fields are delimited by tabs, semicolons, commas, or spaces
Sub Main()
Workbooks.OpenText Filename:= "C:\sales.txt", Origin:=437, DataType:=xlDelimited, Other:=True, OtherChar:= "|", FieldInfo:=...
End Sub