Code:
Dim MyChar
dim counter as integer
Dim MyStringOpen "TESTFILE" For Input As #1   ' Open file for input.
Do While Not EOF(1)   ' Loop until end of file.
   counter = counter + 1
   if counter = 6 then Input #1, MyString' if 6 gives you line 7, type 5, so on and so forthLoop

Close #1   ' Close file