Validar CUIT/CUIL en PowerBuilder

of_validar_cuit(string as_cuit)
Codigo
string ls_multiplos="5432765432"
int li_digito_cuit,li_digito_multiplo
int li_resultado=0
int li_acumulado=0
int li_modulo=0
int li_codigo=0
int li_inicio,li_fin
int li_digito_verificador
li_fin=len(as_cuit)

if li_fin<>11 then
 messagebox("Advertencia","Verifique la longitud del CUIT")
 return -1
else
 li_digito_verificador=integer(right(as_cuit,1))
end if

for li_inicio=1 to  li_fin - 1
 li_digito_cuit=integer(mid(as_cuit,li_inicio,1))
 li_digito_multiplo=integer(mid(ls_multiplos,li_inicio,1))
 li_resultado=li_digito_cuit * li_digito_multiplo
 li_acumulado += li_resultado // li_acumulado=li_acumulado + li_resultado
next
li_modulo=Mod(li_acumulado,11)
li_codigo=11 - li_modulo

if li_codigo=10 then li_codigo=0
if li_codigo=11 then li_codigo=1
if li_codigo<>li_digito_verificador then
 messagebox("Advertencia","CUIT / CUIL No Valido")
 return -1
else
 return 0
end if