На какой клетке суммарное количество зерен превысит N штук, если на первую положить одно зерно, на вторую 2, на 3-ю 4 и т.д. - VB

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

В старинной легенде шах решил наградить мудреца. Мудрец попросил выдать ему в качестве награды зерно, причем количество зерен он определил так: на 1-ю клетку шахматной доски положить 1 зерно, на 2-ю клетку – 2 зерна, на 3-ю – 4 зерна, на 4-ю – 8 зерен и т. д. Составьте программу, с помощью которой можно вычислить, на какой клетке суммарное количество зерен превысит N штук. (Visual Basic)

Решение задачи: «На какой клетке суммарное количество зерен превысит N штук, если на первую положить одно зерно, на вторую 2, на 3-ю 4 и т.д.»

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

                            Private Sub Command1_Click()
MsgBox "На клетке с номером " & 1 + Int((Log(InputBox("Сколько зёрен") + 1.01)) / Log(2)) & " количество зёрен ПРЕВЫСИТ заданное."
End Sub
                        