Code:
    RichTextBox1.SelStart = 2
    RichTextBox1.SelLength = 3
    Clipboard.SetText RichTextBox1.SelText
There ya go