By using listi.net you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

listi.net

GetClipboardText


Function GetClipBoardText()
   dim DataObj As MSForms.DataObject
   set DataObj = New MSForms.DataObject

   On Error GoTo Whoa

   DataObj.GetFromClipboard

   MyString = DataObj.GetText(1)
   GetClipBoardText = MyString
   Exit Function 
Whoa:
   if err <> 0 then GetClipBoardText = "Data on clipboard not text or is empty"
End Function