Не пойму как исправить - VBA

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

ребят помогите пожалуйста, нужно чтобы введенные числа в двоичной системе в текстбокс1 переводил в 10-ую систему счисления. дело в excel происходит

Private Sub CommandButton2_Click() 
Dim a, b, c As Integer 
a = Val(TextBox1) 
c = 0 
For i = 64 To 1 Step -1 
c = c + a(i) * 2 ^ (i - 1) 
Next 
TextBox3 = c 
End Sub

при нажатии на кнопку вылазит ошибка 13 type mismatch. как понял ошибка с типами данных, не пойму как исправить и подсвечивает строку с формулой

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

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

                            Private Sub CommandButton2_Click()
''введенные числа в двоичной системе в текстбокс1 переводил в 10-ую систему счисления.
Dim a, b, c As Integer
Dim i
'a = Val(TextBox1)
a = "1111"
c = 0
'For i = 64 To 1 Step -1
For i = Len(a) To 1 Step -1
 
c = c + Mid(a, i, 1) * 2 ^ (i - 1)
Next
''TextBox3 = c
Debug.Print c
End Sub
                        