Foro Excel

Hola nuevamente estoy aqui, les incluyo el código que inventé para determinar el digito verificador y quisiera plantear el siguiente desafío... ¿Alguien puede hacer un método mas corto que este?

Function DV(RUT As String)

For X = Len(RUT) To 1 Step -1
S = S + Mid(RUT, X, 1) * Mid("32765432", X, 1)
Next

DV = Mid("123456789K0", Round(11 - (S / 11 - Int(S / 11)) * 11, 0), 1)

End Function

El archivo para que lo comprueben y el metodo esta aqui --->

Acabo de haber superado mi propio record
Function DV(RUT As String)

For X = Len(RUT) To 1 Step -1
S = S + Mid(RUT, X, 1) * Mid("32765432", X, 1)
Next

DV = Mid("0K987654321", Round(S Mod 11, 0) + 1, 1)

End Function

Que aburrido no?.... Pero bueno en algo hay que entretenerso no?

Encontre un metodo mas corto aun... bueno... hay que matar el aburrimiento de algun modo no?

Function DV(RUT As String)

For X = Len(RUT) To 1 Step -1
S = S + Mid(RUT, X, 1) * Mid("32765432", X, 1)
Next

DV = Mid("0K987654321", Round(S Mod 11, 0) + 1, 1)

End Function

Aqui esta el archivo