Aprire un file .url in Edge come scheda

[Slash23]

Salve

questo file .url apriva un indirizzo in una scheda aggiuntiva (e non in una finestra) di internet explorer, qualcuno (magari l'autore di 3 anni fa) sa come modificarlo per farlo funzionare con microsoft edge?

grazie






' x_Master_x
Const OpenInNewTab = &H0800
Const OpenInBackgroundTab = &H1000

Site = "https:\\www.google.com"

Dim oIE
Dim objShell
Dim objWindows

Set objShell = CreateObject("Shell.Application")

For Each objWindows In objShell.Windows
If LCase(Right(objWindows.FullName, 12)) = "iexplore.exe" Then
Set oIE = objWindows
Exit For
End If
Next

If TypeName(oIE) = "Nothing" Or TypeName(oIE) = "Empty" Then
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True
oIE.Navigate2 Site
Else
oIE.Visible = True
oIE.Navigate2 Site,OpenInBackgroundTab
End If

Set oIE = Nothing
Set objShell = Nothing
Set objWindows = Nothing
WScript.Quit