Sub CopyTextBoxToClipBoard(ByRef strIn As String)
Dim myCopy As DataObject
'Must have a reference to Microsoft Forms 2.0 Object Library enabled
Set myCopy = New DataObject
myCopy.SetText strIn
myCopy.PutInClipboard
End Sub
Function GetFromCB() As Variant
Dim myPaste As DataObject
Set myPaste = New DataObject
'Must have a reference to Microsoft Forms 2.0 Object Library enabled
myPaste.GetFromClipboard
GetFromCB = myPaste.GetText(1)
End Function
Sub Demo()
  MsgBox GetFromCB
End Sub