C# と VB.NET の質問掲示板

リッチテキストボックスで最初と最後の改行を削除したいのですが、



        RichTextBox2.Text = RichTextBox2.Text.Trim

とすると、改行は削除されるのですが、
1文字目に設定してあるフォントが全文字列に適用されてしまいます。
フォントを変更せずに、改行だけを削除するにはどうしたら良いですか？


        Dim RTB As RichTextBox = RichTextBox2

        For i As Integer = RTB.Text.Length To 1 Step -1

            If Mid(RTB.Text, i, 1) = vbLf OrElse Mid(RTB.Text, i, 1) = vbCr Then

                Mid(RTB.Text, i, 1) = ""

            Else

                Exit For

            End If

        Next

とすると、なぜか、改行は削除されない上に、
フォントだけが変化してしまいます。