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