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

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

iText$ = "Скопировать в буфер обмена"
iData.SetText iText$, 1
iData.PutInClipboard

With New DataObject
     .SetText "Заменить данные на этот текст"
     .PutInClipboard
End With