Try
            Dim TxtWriter As New IO.StreamWriter("c:\test.txt", False)
            ' --- Wenn du den Parameter hinter der Fileangabe auf true setzt 
            ' wird die Datei immer fortgeschrieben
            For i As Integer = 0 To ListBox1.Items.Count - 1
                TxtWriter.WriteLine(ListBox1.Items.Item(i).ToString)
            Next
            TxtWriter.Close()
        Catch ex As IO.FileLoadException
            MsgBox("Datei konnte nicht geöffnet werden")
        Catch ex As Exception
            MsgBox("Irgendwas anderes mal wieder")
        End Try