リッチテキストボックスの削除（？）

リッチテキストボックスとボタンを配置して、ボタンが押されたらリッチテキストボックスの文字を最後から2文字削除（バックスペースみたいに）するコードを作りたいのですが、よく分かりません。
具体的なコードなどお教えいただければと思っています。

VB2010を使用しています。

こんな感じでよろしいでしょうか。

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _

        Handles Button1.Click



        Dim Text As String

        'Text変数にリッチテキストボックスの最後から２つの文字を入れる 

        Text = Microsoft.VisualBasic.Right(RichTextBox1.Text, 2)

        'リッチテキストボックスのテキストを置き換える 

        RichTextBox1.Text = Replace(RichTextBox1.Text, Text, "")



    End Sub

多分、これ以外に　もっといい方法があると思いますが・・・

コードを少し短くして見ました。

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _

        Handles Button1.Click



        'リッチテキストボックスのテキストは 

        'リッチテキストボックスのテキストの　1文字目から　(テキストの長さ - 2)文字まで 

        RichTextBox1.Text = Microsoft.VisualBasic.Left _

            (RichTextBox1.Text, _

             RichTextBox1.Text.Length - 2)



    End Sub

説明が下手くそですね。　ごめんなさい