sURL = "http://www.w3.org"
IsOnline = InternetCheckConnection(sURL, FLAG_ICC_FORCE_CONNECTION, 0&)

Public Function IsOnline2() As Boolean
Dim lpRasConn(255) As RASCONN
Dim lpcConnections As Long
Dim lpcb As Long
Dim hRasConn As Long
 
lpRasConn(0).dwSize = 412
lpcb = 256 * lpRasConn(0).dwSize
 
RasEnumConnectionsA lpRasConn(0), lpcb, lpcConnections
 
If lpcConnections > 0 Then IsOnline2 = True Else IsOnline2 = False
End Function