A.Open "c:\Filel.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