Mi estimado Fer, lo resolvi de esta manera: cTexto := Memoread( "c:\printouts" + cUltimo + "" + aXMLNom[ I ] ) nPos := AT("<NODECLIENTE>",cTexto) cNumCliente := substr( ctexto, nPos + 13, 6 ) cNumCliente := DejaNumeros( cNumCliente ) donde solo implemente la funcion DejaNumeros(), ...