IsOnlineNEt

Private Declare Function RasEnumConnections Lib "RasApi32.DLL" Alias _
"RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, _
lpcConnections As Long) As Long

Private Function HasOnlineConnection() As Boolean
Dim lprasconn(0 To 1) As Long
Dim rc As Long
Dim lpcb As Long
Dim lpcConnections As Long
lprasconn(0) = 32
lpcb = 0
rc = RasEnumConnections(lprasconn(0), lpcb, lpcConnections)
HasOnlineConnection = lpcConnections > 0
End Function

If HasOnlineConnection = True Then
MsgBox "User is online !"
Else
MsgBox "User is offline."
End If