VB 6.0 do loop error (resolved)

[Deefeketje]

Hi, i've got a DO - LOOP, but after running it once, it stops, and exits the sub (I think, 'cause he doesnt do the actions after the loop)

(the file he opens has more than 1 line, so he must run the loop more than 1 time)

here is the code:

fnum = FreeFile
Open file_name For Input As fnum

TreeView1.Nodes.Clear
Do While Not EOF(fnum)
' Get a line.
Line Input #fnum, text_line

getip = Left(text_line, 15)
getnick = Mid(text_line, 16, Len(text_line))

TreeView1.Nodes.Add , , "ip" & getip, getnick, 1

Loop

Close fnum


does anyone know why he does this?
tnx