static extern int InternetAttemptConnect(int dwReserved);

Public Declare Function InternetAttemptConnect Lib "wininet" (Optional ByVal dwReserved As Long = 0) As Long

  Private Declare Function InternetAttemptConnect Lib "wininet" (Optional ByVal dwReserved As Integer = 0) As Integer

    If InternetAttemptConnect(0) = 0 Then