Hola
No se si lo que quieres es abrir una página web o abrir un documento que tengas en tu disco duro. De todos modos si es una de estas dos cosas lo mejor es utilizar la API ShellExecute, lo declaras en el General de un módulo:
Código:
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
Const SW_SHOWNORMAL = 1
Y luego en el botón, si quieres abrir una página web:
Código:
Dim resul As Long
resul = ShellExecute(Me.hwnd, "open", "http://www.google.es", "", "", 1)
Si quieres abrir un documento de tu disco duro:
Código:
Dim resul As Long
resul = ShellExecute(Me.hwnd, "open", "d:\MisDoc\prueba.htm", "", "", 1)
--Saludos--