visual basic разработка пользовательского интерфейса и решение разветвляющихся программ

[lesasan]

необходимо посчитать z, если х=0,254/cos(n), n=18, c=sin(2.6n)

z = (Abs((Sin(x)) ^ 3 - 12 * Cos(c))) ^ 1 / 5 при условии (Tan(x) - Exp(-c)) > 0.564

иначе

z = Log(Abs((c - x) ^ Abs(x - c) - (Log(x) / Log(10))))



Вот что я нахимичил. Поcле ввода N бэйзик выдает что "условие не выполняется", затем "эрор", и программа заканчивается. Что не так?

Private Sub Command1_Click()
n = Val(InputBox("Введите значение N", "Ввод исходных данных"))
If n = 1.57 Then MsgBox ("error"): End
x = 0.254 / Cos(n)
c = Sin(2.6 * n)
If (Tan(x) - Exp(-c)) > 0.564 Then
MsgBox ("Условие выполняется")
z = (Abs((Sin(x)) ^ 3 - 12 * Cos(c))) ^ 1 / 5
Else
MsgBox ("Условие не выполняется")
If x = 0 Then MsgBox ("error"): End
If (c - x) < 0 Then MsgBox ("error"): End
If Abs((c - x) ^ Abs(x - c) - (Log(x) / Log(10))) = 0 Then MsgBox ("error"): End
End If
z = Log(Abs((c - x) ^ Abs(x - c) - (Log(x) / Log(10))))
End Sub


Private Sub Command2_Click()
End
End Sub