Sub Main Open "XXX" For Input As #1 While Not EOF(1) Line Input #1,L$ Debug.Print L$ Wend Close #1End Sub