Вычислить сумму квадратов последовательности натуральных чисел - VBA

Формулировка задачи:

Вычислите сумму квадратов последовательности натуральных чисел до тех пор, пока значение суммы не превышает заданное число n.

Решение задачи: «Вычислить сумму квадратов последовательности натуральных чисел»

textual
                            Листинг программы 
                        

                            Sub SumKv()
  MsgBox Evaluate("MAX(IF(ROW(1:9999)^3/3+ROW(1:9999)^2/2+ROW(1:9999)/6<=" & Int(InputBox("Введите число", , 1000000)) & ",ROW(1:9999)^3/3+ROW(1:9999)^2/2+ROW(1:9999)/6))")
End Sub
                        