My solution was to write a simple NumToHexString function and loop through the binary to build the lcPersonID string.

  lcPersonID = ""
  FOR i = 1 TO 10
    lcPersonID = lcPersonID + NumToHexStr(ASC(SUBSTR(PersonID,i,1)))
  NEXT 


*-- NumToHexStr--*
LPARAMETERS num
LOCAL nh, nl, sh, sl

If num < 0 or num > 255
  RETURN  "??"
ENDIF 

nh = INT(num / 16)
nl = MOD(num, 16)

sh = IIF(nh < 10, chr(48 + nh), chr(55 + nh))
sl = IIF(nl < 10, chr(48 + nl), chr(55 + nl))

RETURN sh + sl