Error: DataObject:GetText Invalid FORMATETC structure - Clipboard Gets Cleared During Macro Execution - VBA

#If VBA7 Then
'Code is running VBA7 (2010 or later).

     #If Win64 Then
     'Code is running in 64-bit version of Microsoft Office.
     Private Declare PtrSafe Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Long 
     Private Declare PtrSafe Function CloseClipboard Lib "User32" () As Long
     #Else
     'Code is running in 32-bit version of Microsoft Office.
     Private Declare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Long 
     Private Declare Function CloseClipboard Lib "User32" () As Long
     #End If

#Else
'Code is running VBA6 (2007 or earlier).

#End If

Public Sub ClipboardTest()

 OpenClipboard 0

  ' ~the action that would make Excel clear the clipboard~

 CloseClipboard

End Sub