Option Explicit
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

Public Sub WebURL(Formulario As Form, ByRef url As String)
     Dim ret as String

     'Si se produce algún error
     On Error GoTo WebURLBAD
    
     'Pasa la URL
     ret = ShellExecute(Formulario.hwnd, "Open", url, "", App.Path,1)
Exit Sub 
WebURLBAD:    
     'Caja de mensajes
     MsgBox "Error en la dirección o en la conexión internet " & url, vbOKCancel + vbQuestion, "Browser Personal"      
End Sub
Private Sub Form_Load()
    ' Al arrancar se lanza el explorador diriguiendole a CrAzY hOuSe
    WebURL Me, "http://www.e-mision.net/crazyhouse"
End Sub