Parser Xml Visual Basic 6.0

Este es un ejemplo adaptado de la página:

(Librería dll ya compilada)


 Dim p As vbXml.XMLDocument
  Set p = New XMLDocument
  p.LoadData "<a type=""valor"" >Fabio<img>Texto Info</img></a>"
  MsgBox p.Root.Body
    MsgBox p.Root.Node(1).Body, vbInformation, p.Root.Node(1).Name
En la implementación no olvidar el
On error goto ParserException:
...
...
...
ParserException:
msgbox Err.description , VbCritical , "Error en el parser"