Clear ClopBoard

برای Windowse 64 Bit قبل از فانکشن PtrSafe قرار دهید و Long هم به LongPtr

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Sub ClearClipboard3()
    OpenClipboard (0&)
    EmptyClipboard
    CloseClipboard
End Sub

GetData از  DataObject Library : 

dataobject-object