Función para Verificar si una pagina Web esta en Linea

Buen día aquí de nuevo les traigo una función para verificar que una pagina web este online:

Se hará uso de la clase : httpWebRequest del espacio de nombre system.net
Referencia:     http://msdn.microsoft.com/es-es/library/btdf6a7e.aspx

Les pego la función completa documentada para su fácil compresión.

 ''' <summary>
    ''' Funcion que checa el estado de una Pagina Web
    ''' </summary>
    ''' <param name="rtaSw">Ruta de la Pagina</param>
    ''' <returns>variable que determina si la web respondio</returns>
    ''' <remarks></remarks>
    Private Function verificarPagina(ByVal rtaSw As String) As Boolean
        Dim activa As Boolean = False
        Try
            Dim hRequest As HttpWebRequest = TryCast(WebRequest.Create(rtaSw), HttpWebRequest)    'Creamos la solicitud de la URL
            Dim lector As New StreamReader(hRequest.GetResponse().GetResponseStream())            'Obtener la respuesta y abrimos el stream de despuesta
            Dim respuesta As String = lector.ReadToEnd()                                          'Se lee la respuesta
            activa = True                                                                         'Servicio Activo
            lector.Close()                                                                        'Cerrar el stream abierto.
        Catch ex As Exception
            activa = False
        End Try
        Return activa
    End Function

Cualquier pregunta hacerla por este medio.

Saludos.