newB i listbox

har problemer med nedenstående, når der skrives til filen txt så er der et vbnewline efter hver list1.list også den sidste, hvilket resulterer i når jeg HENTER fra txt filen og ind vha. list1.additem så er der en uønsket vbnewline i min listboks og 2 gang er der 2 vbnewline og 3gang,,,,,, HVORDAN kommer jeg af med disse vbnewline SAMTIDIG med at de skal bruges når der gemmes i txt fil (da det skal se pænt ud)




Public gyldignr1, gyldignr2, gyldignr3 As String

Private Sub Command1_Click()
'Sådan gemmer du:

' Vejen til din tekstfil


For i = 0 To List1.ListCount - 1
output1 = output1 & List1.List(i) & vbNewLine
Next

Open "C:\Users.txt" For Output As #1
Print #1, output1
Close #1


gyldignr1 = Form3.List1.List(1)
gyldignr2 = Form3.List1.List(2)
gyldignr3 = Form3.List1.List(3)


Unload Me
End Sub

Private Sub Command3_Click()
List1.AddItem Form3.Text1.Text

End Sub

Private Sub Command4_Click()
List1.RemoveItem List1.SelCount - 1


For i = 0 To List1.ListCount - 1
output1 = output1 & List1.List(i) & vbNewLine
Next

Open "C:\Users.txt" For Output As #1
Print #1, output1
Close #1

End Sub

Private Sub form_load()


Dim Linje As String 'det betyder den nu kan indeholde tekst
'Sådan åbner du og loader tekstfilen:

' Vejen til min tekstfil

Open "C:\Users.txt" For Input As #1
Do Until EOF(1)
Line Input #1, Linje
List1.AddItem Linje


Loop

Close #1


End Sub

Private Sub Command2_Click()
Unload Me
End Sub