'Hier die benötigten API-Deklarationen
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
 
'Diese nachfolgende Prozedur aktiviert den im
'System registrierten Standard-Browser und lädt
'die durch URL angegebene Internetadresse
Public Sub URLGoTo(ByVal hWnd As Long, ByVal URL As String)
 
  'hWnd: Das Fensterhandle des 
  'aufrufenden Formulars
 
  Screen.MousePointer = 11
  Call ShellExecute(hWnd, "Open", URL, "", "", 1)
  Screen.MousePointer = 0
End Sub
 
Beispiel:
URLGoTo Me.hWnd, "http://www.vbarchiv.de/"