Sub CopyToClipBoard( text )
    Set wshShell = CreateObject("WScript.Shell")
    Set oExec = WshShell.Exec("clip")

    Set oIn = oExec.stdIn

    oIn.WriteLine text
    oIn.Close
End Sub