Buenos días

Estoy creando una formula cual al escribir un numero llamado RTN me devulve el un nombre luego de una consulta web.

El codigo vba es el siguiente

Function Registro(RTN As String)    Dim IE As Object    Dim Respuesta As String     Set IE = CreateObject("InternetExplorer.Application")     IE.Navigate "http://enlacertn.sar.gob.hn"     IE.Visible = True    While IE.busy     DoEvents    Wend    IE.document.All.Item("txtCriterio").Value = RTN    IE.document.All("btnBuscar").Click    Application.Wait (Now + TimeValue("0:00:03"))     Do Until IE.ReadyState = 4     DoEvents    Loop    Respuesta = IE.document.getElementById("LblNombre").innertext    Registro = Respuesta   IE.Quit End Function 

necesito extraer el elemento Id=LblNombre pero me devulve un error la funcion

Adjunto imagenes para mayor comprension

Excel Error

Antes dela consulta

Despues de la consulta

codigo de la pagina web

Si son tan amables de indicarme donde tengo el error en la formula y de paso explicarme un poco como seria el codigo para aprender.

Gracias!