Поместить текст в буфер обмена- Visual Basic(Бейсик)

Dim iData As New DataObject, iText$ 'MSForms.DataObject

iText$ = "Скопировать в буфер обмена"
iData.SetText iText$, 1
iData.PutInClipboard
code: #vba
With New DataObject
     .SetText "Заменить данные на этот текст"
     .PutInClipboard
End With