ayuda con la macro

[somar]

hola muy buenas, antes que todos muchas gracias a todos ustedes

quiero que me ayuden a interpretar la siguiente macro:

Public Function clave(ByVal Serie As String) As Double
    Dim resultado As Double
    resultado = 0
    For I = 1 To Len(Serie)
        resultado = resultado + Mid(Serie, I, 1) * Mid(Serie, I, 1)
    Next I
    resultado = (resultado * resultado) - (resultado * 2) + Len(Serie)
    clave = resultado
End Function
 

atte.

 

oscar

 

[Antoni]

1. Calcula la suma de los cuadrados de cada uno de los dígitos de un número.
2. Calcula el doble 1
3. Calcula el  cuadrado 2
4. Calcula 3 - 2
5. Calcula 4 - la cantidad de dígitos del número

Ejemplo para el número 34:

1. 9+16=25
2. 25+25=50
3. 25*25=625
4. 625-50=575
5. 575-2=573

[somar]

muchas gracias Antonio,

adjunto serie 374605411

Atte

 

oscar

[somar]

nota

resultado

es 23112

y a mi no me esta salio

 

atte

 

oscar

 

[Antoni]

Hay un error en el punto 5, en lugar de: 

Calcula 4 - la cantidad de dígitos del número

debe ser:

Calcula 4 + la cantidad de dígitos del número

 

Te dejo un ejemplo.

Clave.xls