Windows 10 Open a .url in a tab of Microsoft Edge

Hi, I want to open a specific .url in a new tab of Microsoft Edge, this is the file I used for Explorer, can anyone convert for Edge?

thanks


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