Problem med at gemme tekst fra listbox

Hvordan gemmer du?

Hej.

Jeg har lige fundet ud af at problemet ikke er når jeg gemmer. Jeg kan sagtens add noget tekst til listen og gemme rigtigt.

Men hvis jeg f.eks loader en liste ind i listbox og derefter gemmer den igen, så er det at de der mellemrum opstår???

Jeg mener loader tekst fra en fil.

Det er stadigvæk umuligt at sige noget uden at se noget kode.

Denne kode bruger jeg til at gemme:

On Error GoTo cancelvalgt
        Dim sfd As New SaveFileDialog
        sfd.Filter = "E-mail list (*.txt)|*.txt"
        If sfd.ShowDialog() = DialogResult.OK Then

        End If

        Dim output As New IO.StreamWriter(sfd.FileName)

        For Each item As Object In ListBox1.Items
         
            output.WriteLine(ListBox1.GetItemText(item))
        Next item


        output.Close()
cancelvalgt:

Den virker som en drøm når jeg har tilføjet tekst via et tekstfelt i min form. Men gemmer jeg noget med den kode som er loadet ind i listen via en fil. Så opstår alle disse mellemrum.

Det skal lige siges at alle de mellemrum som kommer i mellem hver linie når jeg gemmer. De kommer til at ligge øverst i mit listfelt når jeg indlæser filen. Sådan at listen er helt tom i starten, men længere nede kommer den tekst så som skal være der.

Og hvordan læser du ind igen?

Sådan indlæser jeg:

OpenFileDialog1.InitialDirectory = "./"
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = "E-mail list (*.txt)|*.txt"
        OpenFileDialog1.ShowDialog()
        Dim domaine As String
   
        Using sr As New IO.StreamReader(OpenFileDialog1.FileName)
          Do Until sr.EndOfStream
             
                ListBox1.Items.Add(sr.ReadLine() & vbCrLf)

            Loop
            sr.Close()
        End Using
     
cancelvalgt:

Hvad laver:

& vbCrLf

der??

kaffe??