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

dim sstrText as string

sstrText="http://www.myURLname.com"

If InternetCheckConnection(sstrText, FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "Connection to " & sstrText & " failed!", vbInformation
Else
MsgBox "Connection to " & sstrText & " succeeded!", vbInformation

End If

Dim http: set http = CreateObject("MSXML2.XMLHTTP")
URL_test = "http://site.ru"

http.open "GET", URL_test , False
http.send

if not http.status = 200 Then
msgbox "wrong"
  Else
  msgbox  "good"      
end If

Private Sub Form_Load()
    Call Inet1.Execute("http://site.ru", "GET")

    If InStr(1, Inet1.GetHeader(), "200") > 0 Then
        Call MsgBox("Good")
        Else
        
    End If
    Unload Me
End Sub

Private Sub Form_Load()
    Call Inet1.Execute("http://site.ru", "GET")
     Do Until Inet1.StillExecuting = False
        DoEvents
    Loop
    If InStr(1, Inet1.GetHeader(), "200") > 0 Then
        Call MsgBox("Good")
        Else
        
    End If
    Unload Me
End Sub