Помогите исправить ошибку - VB

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

Dim x As Integer
Dim i As Integer
Dim n As Integer
Private Sub CommandButton1_Click()
x = Text1.Text
n = Text2.Text
For i = 1 To n - 1
x = 2 * x
Next i
Text3.Captin = ?????
End Sub
Private Sub Command2_Click()
End
End Sub

Что здесь не так?

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

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

                            Dim x As Integer
Dim i As Integer
Dim n As Integer
 
 
Private Sub Command1_Click()
x = Text1.Text
n = Text2.Text
For i = 1 To n - 1
x = 2 * x
Next i
Text3.Text = x
End Sub
 
Private Sub Command2_Click()
End
End Sub
                        