Public Function moduloOnce(xlId As String) As String
Dim largo As Integer, i As Integer
Dim suma As Double, numero As Double
Dim serie As Variant
serie = Array(2, 3, 4, 5, 6, 7, 2, 3)
largo = Len(xlId)
suma = 0
For i = largo To 1 Step -1
numero = Mid(xlId, i, 1)
multiplicado = CDbl(numero) * serie(largo - i)
suma = suma + multiplicado
Next
dividido = CInt(suma / 11)
resto = suma - dividido * 11
digito = 11 - resto
Select Case digito
Case 1, 2, 3, 4, 5, 6, 7, 8, 9
moduloOnce = digito
Case 10
moduloOnce = "K"
Case 11
moduloOnce = 0
End Select
End Function
Crear cuenta