Sub Main Dim Hnd% Hnd% = FOpen(“C:\AUTOEXEC.BAT”, 0, 4) 'read-only, shared FSeek Hnd%, 0 'begin of file While Not FEof(Hnd%) Debug.Print FLInput(Hnd%) Wend FClose Hnd%End Sub