' Use IE to retrieve clipboard data
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
strValue = objIE.document.parentwindow.clipboardData.GetData("text") & vbCrLf
' remove trailing blanks
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.Pattern = " {1,}[\r][\n]"
strValue = objRegEx.Replace(strValue,vbCrLf)
' stuff it back in the clipboard
objIE.document.parentwindow.clipboardData.SetData "text", strValue
objIE.Quit