Sub test()
Dim myDO As New DataObject
With myDO
.GetFromClipboard
MsgBox .GetText()
End With
End Sub
Sub test()
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.GetFromClipboard
MsgBox .GetText()
End With
End Sub