Dim iURL
Dim objShell
iURL = "www.google.ie"
set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "chrome.exe", iURL, "", "", 1
Dim objShell
objShell = CreateObject("Shell.Application")
objShell.ShellExecute("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "www.google.ie", "", "", 1)
set objShell = CreateObject("WScript.Shell")
objShell.run(iURL)