Public Sub SaveListBox() 'ListBox speichern
  Dim F As Integer
  Dim i As Integer
  Dim sFile As String
  sFile = App.Path & "/Data.dat"
 
  F = FreeFile
  Open sFile For Append As #F
  With ListBox1
    For i = 0 To .ListCount - 1
      Print #F, .List(i)
    Next i
  End With
  Close #F
 
DoEvents
Unload Me
End Sub