يمكنك استعمال هذا الكود
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long
If InternetGetConnectedState(0&, 0&) Then
'code if conected
Else
MsgBox "تأكد من اتصالك بالانترنت"
End If
مع مراعاة أن السطر الأول للإعلان عن الدالة يجب أن يوضع في الجزء العلوي من الموديول
وكود الشرط يمكن تضمينه في أي إجراء أو حدث
وفقنا الله وإياكم لكل خير