Private Const WM_PASTE As Long = &H302
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'
Sub RtbPaste(oRTB As RichTextBox)
SendMessage oRTB.hWnd, WM_PASTE, 0&, ByVal 0&
End Sub