怎么快速判断一个URL地址对应的资源是否存在?

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