Funcion de ASP.NET para validar rif

Pequeño POST para hacer publico una pequeña funcion para tomar informacion en ASP del rif en Venezuela

Sub xmlRazonSocial()
Dim xmlLector As XmlTextReader
Dim razon, rif As String

'se le quitan las comillas para ser validado en el seniat
rif = txtRif.Text.Replace("-", ""

'esta variable capturar el xml del seniat
xmlLector = New XmlTextReader("http://contribuyente.seniat.gob.ve/getContribuyente/getrif?rif=" & rif)

Try
xmlLector.WhitespaceHandling = WhitespaceHandling.None
xmlLector.Read()
'se recorre el XML
While Not xmlLector.EOF
xmlLector.Read()
If Not xmlLector.IsStartElement() Then
Exit While
End If
'Se busca el padre de los nodos en este casa rif:Rif
Dim rifAtributo = xmlLector.GetAttribute("rif:Rif"
xmlLector.Read()
razon = xmlLector.ReadElementString("rif:Nombre"
xmlLector.Read()
End While

txtRazon.Text = razon
btnBuscar.Enabled = True
lbMensajeBuscar.Text = ""
btnBuscar.Enabled = True

Catch ex As Exception

lbMensajeBuscar.Text = "Ocurrio un error con el rif " & txtRif.Text & "."
End Try
End Sub