On Mon, 7 Jun 1999 13:13:40 -0300, you wrote:

>Voy a tratar de efectuar una aplicación comercial, alguien me puede informar
>en el caso del Nº de CUIT (Clave Unica de Identificación Tributaria), como
>se puede hacer para que se valide el dato con el dígito verificador.

yo uso estafuncion, donde el argumento son los 10 primeros dígitos sin sepataciones
?Digicuit("2012345678")
Function Digicuit(Cuit As String) As Integer
    Dim Sum As Integer
    Dim Coef As Variant, Lon%, Resultado
    Dim i%, Resto%
    Coef = Array(0, 5, 4, 3, 2, 7, 6, 5, 4, 3, 2)

    Sum = 0
    For i = 1 To 10
        Sum = Sum + Val(Mid(Cuit, i, 1)) * Coef(i)
    Next
    Resto = Sum Mod 11
    Digicuit = 11 - Resto

End Function

   Saludos
*** Lalo ***