Dim ak%, inputstring$, i%
ak = FreeFile
Open "any.txt" For Output As #ak%
For i = 0 To 255
     Write #ak, "Test1" & Chr(i) & "Test2" & Chr(13)
Next i
Close #ak
 
ak = FreeFile
Open "any.txt" For Input As #ak%
For i = 0 To 255
    Line Input #ak, inputstring
    If InStr(inputstring, "Test1") = 0 Then Stop
    If InStr(inputstring, "Test2") = 0 Then Stop
Next i
 
Close #ak