FUNCTION f_CreateHex LPARAMETERS nCharactureToConvert cRight = "0" nRight = 0 cLeft = "0" nLeft = 0 * Set positioning refrences lFirstRun = .T. * Loop to count up to the value needed FOR nTempCounter2 = 0 TO nCharactureToConvert IF ! lFirstRun IF nRight < 15 nRight = nRight + 1 ELSE nLeft = nLeft + 1 nRight = 0 ENDIF ELSE lFirstRun = .F. ENDIF NEXT nTempCounter2 cTempString = "0123456789ABCDEF" cResults = SUBSTR(cTempString, nLeft + 1,1) + SUBSTR(cTempString, nRight + 1,1) RETURN cResults>Hi! from santo domingo.