>I get this message at the lnDigit= line of the code:
>
>

proIn = 56548965
>lnSum = 0
>	FOR i = 1 TO 8
>	  lnDigit = VAL(SUBSTR(m.proIn, m.i, 1)) * VAL(SUBSTR("12121212", m.i, 1))
>	  IF lnDigit > 9
>	   lnDigit = INT(lnDigit/10) + lnDigit - 10
>	  ENDIF
>	  lnSum = lnSum + lnDigit
>	NEXT	
>	chkdig = 10*(INT(lnSum/10)+1) - lnSum	
>	chkdig = IIF(chkdig = 10, "0", TRANSFORM(chkdig))
>??chkdig

>
>I'm not sure what I have to fix, it doesn't look like anything is out of range to me.

m.proIn is not a string
try with proIn = "56548965"

Regards,
Pieter