Use the Internet Explorer object to copy text to the users clipboard ready to paste when required.

strClipb = "This text has been copied to the clipboard."

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strClipb
objIE.Quit