lcStart="AAAA" lcxx=STRCOVN_15(lcStart) ?lcStart,lcxx,STRCOVN_16(lcxx) PROCEDURE STRCOVN_15(lcString) LOCAL lcRet,lii lcRet="" FOR lii=1 TO LEN(lcString) lcRet=lcRet+RIGHT(TRANSFORM(ASC(SUBSTR(lcString,lii,1)),"@0"),2) NEXT RETURN lcRet PROCEDURE STRCOVN_16(lcString) LOCAL lcRet,lii lcRet="" FOR lii=1 TO LEN(lcString) STEP 2 lcRet=lcRet+CHR(EVALUATE("0x"+SUBSTR(lcString,lii,2))) NEXT RETURN lcRetMartiJ