Dim Txt = From T As String In TextBox1.Lines Where T <> "" TextBox1.Text = "" For Each S As String In Txt If TextBox1.Text = "" Then TextBox1.Text = S Else TextBox1.Text &= vbNewLine & S End If Next