Late Binding MSForms.DataObject to access the ClipBoard from VBA.

Unlike VB6, VBA does not have the ClipBoard object.
Instead of VB6's ClipBoard object, you can use MSForms 2.0's DataObject object.
To use the object , you should set reference to 'Microsoft Forms 2.0 Object Library'.
If your VBA project has a UserForm, the reference is automatically set.
Then you can use the following code:

 Dim Clip as MSForms.DataObject
 Set Clip = New MSForms.DataObject

You may think that you can write the following code to use the object without the reference.

 Dim Clip as Object
 Set Clip = CreateObject("MSForms.DataObject")

Unfortunately the code does not run if your VBA project does not have a UserForm
because "MSForms.DataObject" is not registered under the 'Classes' registry key.
Here's a workaround snippet.

---

'Though this is not a duty, I am grateful that you describe that you reffered this site(https://akihitoyamashiro.blogspot.com/2010/05/late-binding-msformsdataobject-to.html), 
'when you present this sample code in your web site.

Sub Main()
    'This is ok when you use a UserForm.
    'Dim Clip As MSForms.DataObject
    'Set Clip = New MSForms.DataObject

    'You cannot write a code like this.
    'Dim Clip As Object
    'Set Clip = CreateObject("MSForms.DataObject")

    'This is a workaround when you do not use a UserForm.
    Dim Clip As Object
    Set Clip = CreateObject( _
     "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    
    Clip.GetFromClipboard
    MsgBox Clip.GetText, vbOKOnly, "What's in the ClipBoard?"
    
    Clip.SetText "Test"
    Clip.PutInClipboard
    
    Set Clip = Nothing
End Sub

---