Ошибка деления на ноль - VB

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

Что тут неверно?

Private Sub Command1_Click()
x = 0.169
y = -8.004 * 10 ^ -2
j = 7.7
alpha = 2 ^ -x * Abs(y - x ^ 3.1 / y) * ((Abs(Exp(j) - 1 / (Sin(j) * 3.14 \ 180)))) ^ 1 / 3
End Sub
 
Private Sub Command2_Click()
End
End Sub

Мне всегда выбивает что я делю на ноль Помогите Плиз!

Решение задачи: «Ошибка деления на ноль»

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

                            Private Sub Command1_Click()
x = 0.169
y = -8.004 * 10 ^ -2
j = 7.7
alpha = 2 ^ -x * Abs(y - x ^ 3.1 / y) * ((Abs(Exp(j) - 1 / (Sin(j) * [U][B]3.14 \ 180[/B][/U])))) ^ 1 / 3
End Sub
 
Private Sub Command2_Click()
End
End Sub
                        