Подскажите пожалуйста, в чём ошибка

Dim y As Double
Dim x As Double
Dim i As Double
Dim SuperSum As Double
Dim a As Double
Dim S As Double
Dim n As Double
Public oshiba As Boolean
 
Public Function module1_provera()
 
a = Val(UserForm1.TextBox1.Text)
oshiba = False  
If (IsNumeric(UserForm1.TextBox1) = False) Or (UserForm1.TextBox1 = 0) Then 'Вот тут проверка, не равно ли а нулю, но почему-то эта проверка на ноль не срабатывает, если в ячейку вводить ноль. Да и еще если даже вводимое число не равно нулю, всё равно появляется ошибка divizion by zero..
MsgBox ("Oh no....! Ошибка при вводе в ячейку a1")
oshiba = True
End If
If (IsNumeric(UserForm1.TextBox2) = False) Or (UserForm1.TextBox2 = 0) Then '
MsgBox ("Oh no....! Ошибка при вводе в ячейку a2")
oshiba = True
End If
End Function
 
Public Sub uuu()
 
For x = -5 To 5 Step 0.5
If (x > 0) Then
y = 0.81 * (Log((x ^ 2.5) / (Abs(3 * a))))
Else
MsgBox ("Îáëàñòü îïðåäåëåíèÿ íàòóðàëüíîãî ëîãàðèôìà (0: + áåñêîíå÷íîñòü), à ó òåáÿ ëèáî õ ìåíüøå íóëÿ!!")
End If
For i = -5 To n - 5 Step 1
S = ((6 - (0.11 * Abs(Sin((2 * i) + 1) + y) ^ (3 / 4)) + 3 * Sin((a * x) - 1)))
Next i
Next x
SuperSum = SuperSum + S
MsgBox (SuperSum)
End Sub

a = Val(UserForm1.TextBox1.Text)
oshiba = False  
If (IsNumeric(UserForm1.TextBox1) = False) Or (UserForm1.TextBox1 = 0) Then
MsgBox ("Oh no....! Ïðîâåðüòå çíà÷åíèå ââîäà â ÿ÷åéêå a1")
oshiba = True
End If