Try this function I found a while ago on
http:/Q_20882190.html can help you out. it checks if a certain internet address exist.
Private Declare Function InternetCheckConnection _
Lib "wininet.dll" _
Alias "InternetCheckConnectionA" _
(ByVal lpszUrl As String, _
ByVal dwFlags As Long, _
ByVal dwReserved As Long) As Long
Public Function blnAPI_URL_Exists(ByVal strURL As String) As Boolean
'However, should a page not be found (i.e. a 404 error) and the particular site
'is set-up to redirect to a bespoke "404 page" then you may actually receive a false
'result in that the redirection page does exist (even though the original page did not).
Const FLAG_ICC_FORCE_CONNECTION As Long = &H1
blnAPI_URL_Exists = (InternetCheckConnection(strURL, FLAG_ICC_FORCE_CONNECTION, 0&) <> 0&)
End Function