Sub Main Open "XXX" For Input As #1 Line Input #1,L$ Seek #1,1 ' rewind to start of file Input #1,A Close #1 Debug.Print AEnd Sub