Public Sub SaveList(strFileName As String)
Dim strContents As String
Dim OldIndex As Integer
Dim X

On Error Resume Next

' Om list1 inte innehåller några rader
' är det ingen idé att spara något
If List1.ListCount = 0 Then
Exit Sub
End If

' Kom ihåg att använda list index.
OldIndex = List1.ListIndex

' Gå igenom listan och spara varje rad
For X = 0 To List1.ListCount - 1

' Välj nästa rad
List1.ListIndex = X

' öppna filen
Open strFileName For Input As #1

' Placera innehållet i en variabel
strContents = Input(LOF(1), 1)
Close #1

' Spara filen
Open strFileName For Output As #1

' Infoga det gamla innehållet och texterna
' på varje rad för listitem
Print #1, strContents & List1.Text

Close #1
Next

' använd det gamla indexet igen
List1.ListIndex = OldIndex

End Sub