Dim FilNamn As String ' Namnet på filen som texten skall sparas till
Dim Text As String 'Texten som skall sparas

FileOpen(1, FilNamn, OpenMode.Output) ' Öppna Filen
Write(1, Text) ' Skriv till filen
FileClose(1) ' Stäng filen