Организовать поиск логических ошибок[VBA]

[MariaD]

По легенде, изобретатель шахмат попросил у своего господина награду: на первую клетку шахматной доски положить одно зерно пшеницы, на вторую клетку – два зерна, на третью – четыре зерна и т.д., каждый раз удваивая число зерен. Властитель, удивленный излишней “скромностью” изобретателя, велел выдать ему сто мешков пшеницы (в каждом из которых по 10000000 зерен). Используя цикл с условием, была написана программа, которая определяет, начиная с какой клетки доски общее число зерен превысит количество зерен, предложенное владыкой изобретателю.

Задание - Данная программа содержит синтаксические и логические ошибки. Требуется организовать поиск логических ошибок с использованием Отладчика.
В Text1 -вводится клетка доски
Text2-появляется количество зерен
Text3-выводится сообщение об ошибке

Private Sub CommandButton1_Click()

Dim index As Integer, smax As Double
Dim indexmax As Integer
On Error GoTo metka
indexmax = CDbl(Text1.Text)
If IsNumeric(TextBox1.Text) = False Then
MsgBox "Íåâåðíûå äàííûå"
Exit Sub
End If
index = 1: smax = 1: s = 0
Do While index + 1 <= indexmax
smax = 2 * smax
s = s + smax
index = index + 1
'On Error GoTo m1
Loop
Text2.Text = CStr(s + 1)
'GoTo m2
'm1:
Text3.Text = "Ïåðåïîëíåíèå!"
Exit Sub
metka:
Select Case Err.Number
Case 13
MsgBox "Íåêêîðåêòíûé ââîä äàííûõ"
Case Else
MsgBox "Îøèáêà:" & Err.Description
End Select
'm2:
End Sub

Синтаксические уже исправила