I seem to be having a little trouble implimenting functions the way I used to before OOP.

Im my MAIN program. I SET PROCEDURE TO procedrs ADDITIVE

Within procedrs, I have a function that looks like this:
FUNCTION Binarize
PARAMETERS number,length
PRIVATE retval,digit
retval=''

......
number = number - (digit*65536)
......

RETURN PADL(RetVal,Length,CHR(0))

Later, in the INIT of a form, I call the function thus:
PRIVATE NewKey
NewKey=''
DO WHILE INDEXSEEK(NewKey,"Consults","Index")
WAIT WINDOW "About to Binarize"
NewKey=Binarize(INT(RAND()*1000000000),3)
WAIT WINDOW "Performed Binarize"
ENDDO
INSERT INTO Consults (index, name) ;
VALUES (NewKey, mbhCompany)

And I always get a: Function argument value, type or count is invalid from VFP6. Could someone give me a hint regarding the error of my ways?

TIA