Sub Main ' read the first line of XXX and print it Open "XXX" For Input As #1 Line Input #1,L$ Debug.Print L$ Close #1End Sub