Проверить в строке баланс открывающихся и закрывающихся кавычек - VBA

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

Что-то понаписал, но ничего не работает. Ошибка, скорее всего, в цикле. Объясните,пожалуйста, как будет верно!)

Private Sub CommandButton1_Click()
Dim a, b, s As Integer
Dim str As String
str = TextBox1
a = 0
b = 0
For i = 1 To 100
 If Cells(i, 1) = "(" Then a = a + 1
Next i
For i = 1 To 100
 If Cells(i, 1) = ")" Then b = b + 1
Next i
s = a - b
If s = 0 Then
Label2.Caption = "Баланс"
Else
 Label2.Caption = "Oшибка"
End If
End Sub

Спасибо!)

Решение задачи: «Проверить в строке баланс открывающихся и закрывающихся кавычек»

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

                            Private Sub CommandButton1_Click()
Dim a&, b&, str$, s1$
str = TextBox1
a = 0: b = 0
For i = 1 To Len(str)
If Mid(str, i, 1) = "(" Then a = a + 1
If Mid(str, i, 1) = ")" Then b = b + 1
If b > a Then Exit For
Next i
s1 = IIf(b = a, "Баланс", IIf(b > a, "Для закрывающей " & b & _
" нет открывающей", "Число открывающих больше чем закрывающих"))
Label2.Caption = s1
End Sub
                        