Dim Moo as RichTextBox
Moo = Me.ActiveControl
Moo.Paste()