Textbox Multilines

Hej med jer

Jeg har en Textbox med multilines hvor jeg skriver f.eks.

1
2
3
4

Det som jeg gerne ville var at samle dem op til "1,2,3,4"
altså på en lang linje


Hvis jeg bruger min kode:

        Dim Linjer = Split(TextBox1.Text, vbLf)
        Dim AntalLinjer = UBound(Linjer)


        Dim I = 0
        Dim Tekst = ""

        Do While I <= AntalLinjer
            If I = 0 Then
                Tekst = Linjer(I)
            Else
                Tekst = Tekst & Linjer(I)
            End If
            I += 1
        Loop

        MsgBox(Tekst)

Vil jeg få dem skrevet ud som:

1
2
3
4

lige som de står i textboxen.

Nogen der har en fix metode? :-)

I min form har jeg kun en textbox med multilines og en knap som udfører koden ovenfor