Recorrer una cadena XML y llenar un Grid

xmlDoc is a xmlDocument   <description="xxx"> = XMLOpen("c:\temp\xxx.xml",fromFile)

xmlRegistro is a xmlNode  <description="xxx.VFPData.registro">

FOR EACH xmlRegistro IN xmlDoc.VFPData
    TableAddLine(TABLE_SinNombre1,xmlRegistro.t22codart, xmlRegistro.t22nart, xmlRegistro.t22cfami)
END

https://www.windev.tips/ficheros/xxx.XML