hit enter by accident while editing some code i had already... anyway

Dim mystring As New DataObject
mystring.SetText "Put In Clipboard"
mystring.PutInClipboard