Dim strCopy2
Set objIE = CreateObject("InternetExplorer.Application")
strCopy2=objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit