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 Do While Not EOF(#FileNo) Line Input #1, strLine …… Loop