Sub subCopyPasteVariableToClipboard()
Dim do_Mydata As DataObject 'set reference to the data object ,part of microsoft forms 2.0
Dim str_test As String ' string for testing
Set do_Mydata = New DataObject
str_test = "This should be sent to the clipboard"
With do_Mydata
.SetText str_test
.PutInClipboard
End With
End Sub