imports system.net
Private Function ResourceExists(ByVal URL As String) As Boolean
Dim wr As WebRequest = WebRequest.Create(URL)
Dim res As WebResponse
Try
res = wr.GetResponse
Return True
Catch ex As Exception
Return False
End Try
End Function