Private Sub Command1_Click()
   
    strUrl = txtURLbox.Text
    'verificar si hay, al menos, 11 caracteres ("http://www.")
    If Len(strUrl) > 11 Then
        Screen.MousePointer = 15
       txtNote.Text = Inet1.OpenURL(strUrl)
        
     
        Screen.MousePointer = 0
    Else
        Screen.MousePointer = 0
        txtNote.Text = "Introduzca un nombre de documento válido en el cuadro URL"
    End If
    Exit Sub
manejadorerror:
    Screen.MousePointer = 0
    txtNote.Text = "Error en la conexión con el URL (" & Err.Description & ")"
End Sub

Inet1.OpenURL (strUrl)
txtNote.Text = Inet1.GetHeader