Replace your While loop with this one
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)) & " "
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.
- Vijay G
Strive for Perfection