¿Como saber si estamos conectados a internet?

'**************************************************************************
'* devuelve Cierto o Falso según este conectado o no a Internet
'* deberá incluir en la sección de declaraciones la siguiente:
 Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
'* uso: If InternetConectado Then
'* ESH 25/10/03 13:55
'**************************************************************************

Public Function InternetConectado() As Boolean
    If InternetGetConnectedState(0&, 0&) = 1 Then
        InternetConectado = True
    Else
        InternetConectado = False
    End If
End Function            ' InternetConectado