Sub Demo()
' Note: A VBA reference to the MS Forms Object Library is required. See Tools|References in the VBE.
Dim MyData As DataObject: Set MyData = New DataObject
MyData.SetText "My Text String": MyData.PutInClipboard
End Sub