FUNCTION str2hex LPARAMETERS pcStr LOCAL lnCnt, lcHex lcHex = "" lnCnt = len(pcStr) DO WHILE lnCnt > 0 lcHex = RIGHT(TRANSFORM(ASC(SUBSTR(pcStr, lnCnt, 1)), "@0"), 2) + lcHex lnCnt = lnCnt - 1 ENDDO return iif(!empty(lcHex), "0x"+lcHex, "") ENDFUNCNot tested, but hope it helps,