[VB.Net]Check URL for availability.

Public Function CheckURL(ByVal URL As String) As Boolean
    Try
        Dim Response As Net.WebResponse = Nothing
        Dim WebReq As Net.HttpWebRequest = Net.HttpWebRequest.Create(URL)
        Response = WebReq.GetResponse
        Response.Close()
        Return True
    Catch ex As Exception
    End Try
End Function