Replace your While loop with this one
Code:
Do While Not TS.AtEndOfStream
TempUser = Replace(Replace(TS.ReadLine,vbTab&vbTab,","),vbTab,",")
UserInfo = Split(TempUser,",")
for i = 0 to ubound(UserInfo)
Response.Write "<b>UserInfo(" & i & "):</b>" & Trim(UserInfo(i)) & " "
Next
Response.Write "<br>"
Loop
Since Tab usage within the text file wasn't regular, the code marked in Blue uses two replace functions, one replacing multiple tabs and the other replacing single tab with COMMA.
Hope that helps.
Cheers!
_________________________
- Vijay G
Strive for Perfection