Så här någonting, för en ListView. Likanande kod gäller även
för en List:
Dim FileName As String
FileName = "C:\" & Me.Caption & ".txt"
'Loppa-igenom samtliga "items" i ListView1,
'skriv dessa till separata rader i en fil
'som får samma namn som Formuläret.
Open FileName For Append As 1#
For i = 1 To ListView1.ListItems.Count
citm = ListView1.ListItems(i).Text
Print #1, citm
Next i
Close 1#
Om du vill "tömma" filen innan du skriver en gång till, till
samma fil dvs. Så gör följande innan loopen ovan:
Open FileName For Output As 1#
Close 1#