Puedes usar el código que sigue para abrir un navegador con la URL que quieras.
Modifica los nombres de fichero, directorio y URL's lo que sea necesario para que coincidan los valores con los de tu sistema.

Dim FileName As String, Dummy As String
Dim BrowserExec As String * 255
Dim RetVal As Long
Dim FileNumber As Integer
Const SW_SHOWNORMAL = 1 ' Restaurar la ventana si está minimizada

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As _
String) As Long
' ---------

BrowserExec = Space(255)
FileName = "C:\temphtm.HTM"

FileNumber = FreeFile() ' Coger un nº de fichero no utilizado

Open FileName For Output As #FileNumber ' Crear un fichero HTML temporal
  Write #FileNumber, " <\HTML>" ' Escribir
Close #FileNumber ' Cerrar el fichero

' Buscar la aplicación asociada a la extensión html
  RetVal = FindExecutable(FileName, Dummy, BrowserExec)
  BrowserExec = Trim$(BrowserExec)
  ' Si se encontró la aplicación, lanzarla
  If RetVal <= 32 Or IsEmpty(BrowserExec) Then ' Error
    Msgbox "No puedo encontrar el navegador"
  Else
    RetVal = ShellExecute(frmMain.hwnd, "open", BrowserExec, _
      "www.myurl.com", Dummy, SW_SHOWNORMAL)
    If RetVal <= 32 Then ' Error
      Msgbox "Página Web no abierta"
    End If
  End If

Kill FileName ' borrar el fichero HTML temporal

Dan Newsome, D&D Information Professionals, [newsomed@earthlink.net]


Se me acaba de ocurrir otra (la he probado en w 98 y funciona y pienso que lo hará también en 95, NT y 2000):

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Dim res As Long
res = ShellExecute(Me.hwnd, "Open", "http://www.ctv.es/USERS/jrubi/index.html", "", "", 1)

Por lo menos sirve para abrir mi página ;-)