If you want short and simple, try this:
Dim b As String() = Split(TextBox1.Text, vbNewLine)
TextBox1.Text = String.Join(vbNewLine, b, 1, b.Length - 2)
Wayne
It is hard to understand how a cemetery can raise its burial rates and blame it on the cost of living.