Quel est le code qui nous permet d'ouvrir un navigateur en cliquant sur un bouton en vb8

 
le code qui permet d'ouvrir un logiciel en vbs est 
pour navigateur par defaut:
Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")

ou;

Sub  
RunUrl(sUrl, bMaximized) 

 Dim oShell 
 Set oShell = WScript.CreateObject("WSCript.shell") 
 If bMaximized = True Then 
    oShell.run sUrl, 3 
 Else 
    oShell.run sUrl, 1 
 End If 
 Set oShell = Nothing 
End Sub