Dim FilNamn As String ' Filen som skall läsas
Dim Text As String ' Texten som läses in

FileOpen(1, FilNamn, OpenMode.Input) ' Öppnar filen
Do While Not EOF(1) ' Loopar igenom filen och läs den
Input(1, Text)
Loop
FileClose(1) ' Stänger filen