* Läser in text från textfil till listboxen

Dim f As Integer, filename As String
Dim i As Integer

filename = App.Path & "\aktiviteter\aterkommande.lst"

f = FreeFile
i = o
If Dir(filename) <> "" Then
Open filename For Input As f
Do While Not EOF(f)
Line Input #f, teststr
List1.AddItem teststr
Loop
Close f
End If

* Spara text från listboxen till en textfil

Dim f As Integer, filename As String
Dim i As Integer

filename = App.Path & "\aktiviteter\aterkommande.lst"
f = FreeFile
i = o

Open filename For Output As f
For i = o To List1.ListCount - 1
Print #f, List1.List(i)
Next i
Close f