Dim xxx As New List(Of String)
 
With xxx
    .Add("a") : .Add("b") : .Add("c")
 
    Using ostream As New IO.StreamWriter("C:\Daten\xyzabc.txt", False)       
       For i As Integer = 0 To .Count - 1
           ostream.Write(.Item(i) & If(i < CInt(.Count) - 1, vbCrLf, ""))
       Next i
    End Using
End With