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, True)
 
        For i = 0 To ListBox.Items.Count - 1
            oStream.WriteLine(ListBox.Items(i))
        Next
        oStream.Close()
 
        Dim TXTline As Integer
        TXTline = FileLineCount(Application.StartupPath & "\LBox.txt")
 
    End Sub