Get Default browser path Vb6

code:

Public Function sDBrowserPath() As String
Dim oShell As Object
Set oShell = CreateObject("WScript.shell")
sDBrowserPath = Split(oShell.RegRead("HKEY_CLASSES_ROOT\HTTP\shell\open\command\"), Chr(34))(1)
End Function