Private Sub Command1_Click()
Dim Numero As Long
Dim Suma As Long
Dim Pro As Long
Dim Cantidad as Long
 
Numero = 1
Suma = 0
Pro = 0
Cantidad = 0
Do While Numero <> 0
    Numero = Val(InputBox("Dame un numero", "NUMEROS HASTA QUE UNO SEA 0"))
    if Numero <> 0 then
        Cantidad = Cantidad + 1
        Suma = Suma + Numero
        Pro = Suma / Cantidad
    end if
Loop
'Luego tienes los valores en cada variable y los muestras donde sea
End Sub
 

Public Function Euler_1(ByVal lNum As Long) As Long
Dim S5 As Long
 
    If lNum& And &H80000000 Then Exit Function
 
    lNum& = lNum& - &H1
 
    Euler_1& = ((lNum& \ &HF) * ((lNum& \ &HF) + 1) \ 2) * &HF
 
    S5& = ((lNum& \ &H5) * ((lNum& \ &H5) + 1) \ 2) * &H5
 
    Euler_1& = S5& - Euler_1&
 
    Euler_1& = Euler_1& + (((lNum& \ &H3) * ((lNum& \ &H3) + 1) \ 2) * &H3)
End Function
 

Tiempo BlackZeroX V2        66.052 msec
Resultado BlackZeroX V2     233168

Tiempo BlackZeroX V1        43.226 msec
Resultado BlackZeroX V1     233168

Tiempo 7913   144.274 msec
Resultado 7913              233168

Tiempo dany   1,635.416 msec
Resultado dany              233168

Tiempo Spyke1 176.800 msec
Resultado Spyke1            233168

Tiempo MCKSys 0.983 msec
Resultado MCKSys            233168

Public Function Euler_1(ByVal lNum As Long) As Long
Dim Q As Long
Dim S5 As Long
 
    If lNum& And &H80000000 Then Exit Function
 
    lNum& = lNum& - &H1
 
    For Q& = &H0 To (lNum& \ &HF)
        Euler_1& = Euler_1& + (&HF * Q&)
    Next Q
 
    S5& = 0
    For Q& = &H1 To (lNum& \ &H5)
        S5& = S5& + (&H5 * Q&)
    Next Q
    Euler_1& = S5& - Euler_1&
 
    For Q& = &H1 To (lNum& \ &H3)
        Euler_1& = Euler_1& + (&H3 * Q&)
    Next Q
End Function
 

Tiempo BlackZeroX V2        55.732 msec
Resultado BlackZeroX V2     233168

Tiempo BlackZeroX V1        39.737 msec
Resultado BlackZeroX V1     233168

Tiempo 7913   152.260 msec
Resultado 7913              233168

Tiempo dany   1,627.764 msec
Resultado dany              233168

Tiempo Spyke1 175.199 msec
Resultado Spyke1            233168

Tiempo MCKSys 98.207 msec
Resultado MCKSys            233168