字符串处理的一个简单Function 仅作记录

    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox2.Text = "TEMPSTRING" & RichTextBox1.Text
    End Sub

    Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text = RichTextBox2.Text.Substring(0, 10)
        RichTextBox3.Text = RichTextBox2.Text.Remove(0, 10)
    End Sub
End Class