codigo de barras en asp.

[lexus]

hola gracias por la colaboracion
me dice ke hay un error de sintaxis en esta linea


Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03EA)
Error de sintaxis
producto.asp, línea 168, columna 22
check = codigo + cstr(mod(10-(MOD(lnsuma,10),10)))

Código:

 
Function Check(codigo)
dim LnSuma, Ini, LnPos
lnsuma=0
lnpos=0
for Ini=(len(codigo)) to 1 step -1
    lnpos = lnpos + 1
    lnsuma = lnsuma + (cdbl(mid(codigo,ini,1)) * evaluacion(lnpos))
next
check = codigo + cstr(mod(10-(MOD(lnsuma,10),10)))
 
end function
function evaluacion(temp)
if MOD(temp)=0 then
    data=1
else
    data=3
end if
evaluacion = data
end function
 
response.write Check(rs("codigo_barras"))

otra cosita, me podrias explicar un poco que hace la funcion? o que significa step -1, gracias