Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long) As Long
'
Private Function IsConnected() As Boolean
On Local Error GoTo Err_Handler
IsConnected = Not CBool(InetIsOffline(0&))
Exit Function
Err_Handler:
IsConnected = False
End Function