FoxPro/Visual FoxPro - CONTINUA EL PROBLEMA PARA ENCRIPTAR

Que estoy haciendo mal para encriptar una clave ??
VFP lanza el mensaje "Formato o tipo de expresión no es válido "
En la textbox : txtpassword
Objeto : Caja de Texto ( txtPassword ) Procedimiento : Valid

pw= SUBS(THISFORM.txtPasWord.VALUE,1,10)
pword=clav01(pw,10)
THISFORM.txtPasWord.VALUE= pword

ESTE ES EL CODIGO DEL PROGRAMA CLAV01 DE PASSWORD

PROCEDURE clav01
*Incripta Pasword de Usuarios
****************
PARAMETERS word_01,cl_01
ii=1
ult=0
do while ii<len(word_01)+1
ult=ult+asc(right(left(word_01,ii),1))
ii=ii+1
enddo
ult=mod(mod(ult,254),100)
word_02=word_01+space(cl_01-len(word_01)) &&Aquí aparece !!!
aa=1
word_03=''
do while aa<>cl_01+1
p_word=left(right(word_02,cl_01+1-aa),1)
word_03=chr(asc(p_word)+(aa*2)+ult)+word_03
aa=aa+1
enddo
word_03=word_03+chr(ult)
return word_03

Creo que en esa linea estas sumando un valor numerico a una cadena de caracteres ya que la funcion LEN( ) te devuelve un numero, auque creo que la funcion SPACE( ) no te hace la operacion de suma deseada y por eso el mensaje de error ..

Saludos !