برای استفاده در کروم دو خط از کد باید به این شکل اصلاح بشه:
sFFExe = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Micr  osoft\Windows\CurrentVersion\App Paths\chrome.EXE\")

    'Open the URL

    Shell """" & sFFExe & """" & sURL & "", vbHide