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

Узнай цену своей работы

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

ребят помогите пожалуйста, нужно чтобы введенные числа в двоичной системе в текстбокс1 переводил в 10-ую систему счисления. дело в excel происходит
при нажатии на кнопку вылазит ошибка 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

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы