'Spara innehållet i en Listbox till en fil
Dim f%, i%, FileName$
FileName = "test.txt" ' som ett exempelnamn
f = FreeFile: i = 0
Open FileName For Output As f
For i = 0 To List1.ListCount - 1
Print #f, List1.List( i )
Next i
Close f

'Läsa in en fil rad för rad och lägga texten i en Listbox
Dim f%, i%, FileName$, TextStr$
FileName = "c:\autoexec.bat" ' som ett exempelnamn
f = FreeFile: i = 0
List1.Clear
If Dir(FileName) Then
Open FileName < > "" For Input As f
Do While Not Eof( f )
Line Input #f, TextStr
List1.AddItem TextStr
Loop
Close f
End If