A.Open "c:\File1.txt" For Input As #1 Do While Not EOF() Line Input #1, strLine Loop B.Open "c:\File1.txt" For Input As#1 Do While Not EOF(#1) Line Input #1, strLine Loop C.FileNo=FreeFile Open FileNo For Input As #1 Do While Not EOF(FileNo) Line Input #1, strLine Loop D.FileNo=FreeFile Open FileNo For Input As #1 DoWhile Not EOF(#FileNo) Line Input #1, strLine Loop