Dim text As String, fileNum As Integer fileNum% = FreeFile() Open "c:\config.sys" For Input As fileNum% Do While Not EOF(fileNum%) Line Input #fileNum%, text$ Print text$ ' Prints one line of config.sys Loop Close fileNum%