This should do the trick:
Private Function CheckUrl(uri As Uri) As Boolean
Dim request As HttpWebRequest = DirectCast(WebRequest.Create(uri), HttpWebRequest)
request.Method = WebRequestMethods.Http.Head
Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
Return response.StatusCode = HttpStatusCode.OK
End Function