Visual Basic - Saber el estado de una url

Buenas, necesito saber como puedo hacer para saber si una pagina esta on-line u off-line, es de gran ayuda para la comunidad en la que estoy trabajando.

me gustaria saber si alguien sabe como asignar el valor true si esta online a una variable y false de lo contrario, se los agradeceria muchisimo...

Fijate en: http://freevbcode.com/ShowCode.asp?ID=632 la tercera forma que se refiere a revisar una dirección determinada:

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInet As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Long

Dim sTmp As String
Dim hInet As Long
Dim hUrl As Long
Dim Flags As Long
Dim url As Variant

hInet = InternetOpen(App.Title, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0&)

If hInet Then
Flags = INTERNET_FLAG_KEEP_CONNECTION Or INTERNET_FLAG_NO_CACHE_WRITE Or INTERNET_FLAG_RELOAD

hUrl = InternetOpenUrl(hInet, "http://www.yahoo.com", vbNullString, 0, Flags, 0)

If hUrl Then
MsgBox "Activa", vbInformation, "Checing connection"
Call InternetCloseHandle(hUrl)
Else
MsgBox "Inactiva", vbInformation, "Checing connection"
End If
End If
Call InternetCloseHandle(hInet)