Public Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long
crie uma função ou comand bottom ()
WebTest = InternetGetConnectedState(dwflags, 0&)
If WebTest = False Then
MsgBox "Micro sem conexão"
End If
Sem complicação e muito rápido