Option Explicit
 
Private Sub Form_Load()
    Dim Response As String
 
    Response = Inet1.OpenURL("http://localhost")
 
    If Response = "" Then
        MsgBox "Offline"
    Else
        MsgBox "Online"
    End If
End Sub
 
 

Option Explicit
 
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
 
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
 
Private Sub Form_Load()
If InternetCheckConnection("http://www.google.com", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
    MsgBox "No esta disponible"
Else
    MsgBox "Si esta disponible"
End If
End Sub