Помогите найти ошибку в коде

'a$ - строка ввода
'buf$ - строка буфер
'a1# - результат
'i% - номер действия
'b% - признак "равно"
't% - признак "точка"
'c% - признак "сброс"
Dim a$, i%, a1#, b%, t%, buf$, c%
Sub vv()
' вычисление
c% = 0
buf$ = a$
If i% = 1 Then a1# = a1# + Val(a$): a$ = Str(a1#): Text1.Text = a$
If i% = 1 Then a1# = a1# - Val(a$): a$ = Str(a1#): Text1.Text = a$
If i% = 1 Then a1# = a1# * Val(a$): a$ = Str(a1#): Text1.Text = a$
If i% = 4 Then
If Val(a$) <> 0 Then
a1# = a1# / Val(a$): a$ = Str(a1#)
Else: a$ = "error"
End If
Text1.Text = a$
a$ = Str(a1#)
End If
a1# = Val(a$)
t% = 0
End Sub

Private Sub command1_Click(Index As Integer)
'ввод числа (0..9)
ch$ = Str(Index): ch$ = Mid$(ch$, 2)
If b% = 1 Then a$ = "": b% = 0: i% = 0
a$ = a$ + ch$: Text1.Text = a$
End Sub

Private Sub command2_Click()
'точка
If b% = 1 Then a$ = "": b% = 0: i% = 0
If t% = 0 Then
a$ = a$ + "."
Text1.Text = a$
End If
t% = 1
End Sub

Private Sub command3_Click()
'равно
If b% = 1 Then a$ = buf$
vv
'i% = 0
b% = 1
End Sub

Private Sub command4_Click(Index As Integer)
' арифметические действия
If b% = 1 Then i% = 0
vv
' i% = index +1
a$ = ""
b% = 0

End Sub

Private Sub command5_Click()
' сброс
a$ = ""
Text1.Text = 0
If c% = 0 Then
c% = 1
Else: i% = 0: a1# = 0: b% = 0: t% = 0: c% = 0
End If
End Sub