Public Function ListBoxSave(ByVal ListBox As ListBox, ByVal Filename As _
      String) As Boolean
 
        Dim oStream As IO.StreamWriter = Nothing
        Dim bResult As Boolean = False
        Dim i As Integer
 
        Try
            ' Stream-Objekt zum Speichern erstellen
            oStream = New IO.StreamWriter(Filename, False, _
              System.Text.Encoding.Default)
 
            With ListBox.Items
                ' Liste durchlaufen und zeilenweise speichern
                For i = 0 To .Count - 1
                    oStream.Write(.Item(i) & If(i < .Count - 1, vbCr, "")) ' 
                    ' Fehlerhafte Zeile!
                Next i
            End With
            bResult = True
 
        Catch ex As Exception
 
        Finally
            ' Stream-Objekt schließen
            If Not IsNothing(oStream) Then oStream.Close()
        End Try
        Return (bResult)
 
    End Function

Gruß Andy

--------------------------------------
Betriebssystem: Windows 10
Entwicklungsumgebung: VB 2017 Com.