Spiega chiaramente quello che vuoi fare sarebbe meglio
codice:
'questo seleziona tutto su una RichTextBox o textBox è uguale
Private Sub cmdselezionatutto_Click()
RichTextBox1.SetFocus
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(rct1.Text)
End Sub
'questo copia tutto su una RichTextBox o textBox è uguale
Private Sub cmdcopia_Click()
Clipboard.SetText RichTextBox1.SelText
End Sub
'questo incolla tutto su una RichTextBox o textBox è uguale
Private Sub cmdincolla_Click()
RichTextBox1.SelText = Clipboard.GetText()
End Sub
Ciao.