CREATEBINARY is not intended to convert base tem numbers to binary. It is used for communication with ActiveX or automation controls.

Use the following simple code:

PARA lnBaseTen

lcReturn = ''

lnWorknum = lnBaseTen

n=0

DO WHILE lnBaseTen>=2^(n+1)
  n=n+1
ENDDO

FOR lnI = n TO 0 STEP -1
  IF lnWorkNum>=2^lnI
    lcReturn = lcReturn + '1'
    lnWorknum = lnWorkNum - 2^lnI
  ELSE
    lcReturn = lcReturn + '0'
  ENDIF
ENDFOR

RETURN lcReturn  

There's probably a better way....there usually is, but it works. :-)