Dim strOrgText As String = Me.TextBox1.Text
TextBox2.Text = Replace(strOrgText, vbCrLf, "</br/>")

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.