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