FoxPro/Visual FoxPro - recorrer elementos de xml

Requiero su valioso apoyo si son tan amables, tengo la siguiente estructura de xml

<ArrayOfCuponModelERPPMS xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<cuponModelERPPMS>
<Idcliente>1-8041-1</Idcliente>
<datoscliente>
<Nombre>NDRES</Nombre>
<Telefono/>
<Direccion/>
<tipodecupones>
<tipodecupones>
<coupon_key>2499</coupon_key>
<coupon_name>0</coupon_name>
</tipodecupones>
<tipodecupones>
<coupon_key>1661</coupon_key>
<coupon_name>0</coupon_name>
</tipodecupones>
<tipodecupones>
<coupon_key>2498</coupon_key>
<coupon_name>403</coupon_name>
</tipodecupones>
</tipodecupones>
</datoscliente>
</cuponModelERPPMS>
</ArrayOfCuponModelERPPMS>


deseo obtener el valor de coupon_key ejemplo pero me marca error que no logra encontar Attributes.getNamedItem("coupon_key comparto codigo abajo agradeceria su amable apoyo para identificar que me pudiera estar haciendo falta , mil gracias


oxml=Createobject("Microsoft.XMLDOM")
oxml.LoadXML(TransactionResultXML)
tempidclave=oxml.getElementsByTagName("Idcliente").Item(0).Text
tempNombre=oxml.getElementsByTagName("Nombre").Item(0).Text
For i = 0 To oxml.getElementsByTagName("tipodecupones").Item(0).childNodes.Length-1

_tempcoupon_key = oxml.getElementsByTagName("tipodecupones").Item(0).childNodes.Item(i).Attributes.getNamedItem("coupon_key").Text
_tempcoupon_name = oxml.getElementsByTagName("tipodecupones").Item(0).childNodes.Item(i).Attributes.getNamedItem("coupon_name").Text
Endfor