Помогите решить задачу в VBA

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

определить сколько натуральных подряд идущих четных числе нужно сложить, чтобы их сумма была большее введенного числа?

Решение задачи: «Помогите решить задачу в VBA»

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

                            <font color="blue">Function</font> calcSeries(maxVal)
    calcSeries = (-<font color="darkblue"><b>1</b></font> + Sqr(<font color="darkblue"><b>1</b></font> + <font color="darkblue"><b>4</b></font> * maxVal)) / <font color="darkblue"><b>2</b></font>
    <font color="blue">If</font> Int(calcSeries) < calcSeries <font color="blue">Then</font>
        calcSeries = Int(calcSeries) + <font color="darkblue"><b>1</b></font>
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Function</font>
                        