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(FileN Line Input #1, strLine Loop D.FileNo=FreeFile Open FileNo For Input As #1 DoWhile Not EOF(#FileN Line Input #1, strLine Loop