Private Sub Command1_Click()
'Using format
RichTextBox1.TextRTF = Clipboard.GetText(rtfCFRTF)
End Sub
Private Sub Command3_Click()
'Only Text
RichTextBox1.TextRTF = Clipboard.GetText(rtfCFText)
End Sub
Note: If you do not include the parm in the gettext, you will get a double paste.
