Private Sub cmdListLoad_Click()
  Dim lFNum     As Long
  Dim i         As Long
  Dim sInput    As String
  Dim saItems() As String
  ' Die Datei auslesen
  lFNum = FreeFile
 
  Open App.Path & "Datei.txt" For Input As #lFNum
    Line Input #lFNum, sInput
  Close #lFNum
 
  ' Alle Items wieder laden
  saItems = Split(sInput, "$%$")
  For i = 0 To UBound(saItems) - 1
    Me.List2.AddItem saItems(i)
  Next
End Sub
 
Private Sub cmdListSave_Click()
  Dim lFNum     As Long
  Dim i         As Long
  Dim sOut      As String
 
  For i = 0 To Me.List1.ListCount - 1
    ' Alle Items in eine Variable und mit "$%$" separieren
    sOut = sOut & Me.List1.List(i) & "$%$"
  Next i
  ' Das ganze in eine Datei speichern
  lFNum = FreeFile
  Open App.Path & "Datei.txt" For Output As #lFNum
    Print #lFNum, sOut
  Close lFNum
End Sub