ohh ^^
anyway your script works fine
code:
Interop.Call("shell32", "ShellExecuteW", ChatWnd.Handle, "open", "http://www.google.co.uk/search?hl=en&q="+escape(Param) , 0,0, 0)
//new ActiveXObject("WScript.Shell").Run("http://www.google.co.uk/search?hl=en&q="+escape(Param));