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

On Error Resume Next
 
Dim iData As New DataObject, iText$ 'MSForms.DataObject

iData.GetFromClipboard
iText$ = iData.GetText(1)