Private Sub speichern()
        ' ListBox speichern
        Dim sFile As String
 
        MsgBox("speichere hier" & Application.StartupPath & "\Liste.dat")
 
        sFile = Application.StartupPath & "\Liste.dat"
        ListBox_Save(ListBox1, sFile)
    End Sub
 
 Public Sub ListBox_Save(ByVal ListBox As ListBox, _
   ByVal sFile As String)
 
        ' Inhalt einer ListBox speichern
        Dim oStream As IO.StreamWriter
        Dim i As Short
 
        oStream = New IO.StreamWriter(sFile)
 
        For i = 0 To ListBox.Items.Count - 1
            oStream.WriteLine(ListBox.Items(i))
        Next
        oStream.Close()
    End Sub