Read TXT lines by line

Dim FSO, F1, ts, S
Const forreading = 1
Set FSO = Createobject ("scripting. FileSystemObject ")
Set Ts = FSO. opentextfile ("E: \ serverlist.txt", forreading)
'Ts. skipline' skips a row
Do until ts. atendofstream 'determines whether it is at the end of the file

Tsline = ts. Readline
'Tslines = Split (tsline, ",") 'use to separate strings
The first string separated by 'IP = tslines (0 )'
'Username = tslines (1)
'Userpass = tslines (2)

Msgbox tsline
Loop
TS. Close

Read TXT lines by line