Open links in Microsoft Edge using .vbs script

[Canem112]

Currently I am using this script to open links in Chrome:

Sub Chrome(URL)
'----------------------------------------------------------------------
' Purpose: Launch Chrome
' Arguments: <URL>
'----------------------------------------------------------------------
if (ubound(split(URL," ")) = 0) then
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "chrome.exe", URL, "", "", 1
end if
end Sub

Is it possible to open this in Microsoft Edge? I tried replacing `shellExecute` linke with this `objShell.ShellExecute "microsoft-edge:", URL, "", "", 1`, but that just opens the Edge with home page, and not the `URL`. Any tips?