Где ошибка - VB (172775)

Private Sub Command1_Click()
Dim X As Single, Y As Single, A As Single
X = Val(Text1)
Y = Val(Text2)
A = 0.123 * Sqr(X) - (2 / 7) * Y ^ (1 / 4)
A = Format(A, ".###")
Text3 = A
B = Val(InputBox("Введите z", "Ввод данных"))
B = 33 ^ (1 / 2 * Log(Z) - Log(5.5)) * Tan(7 / 13)
B = Format(B, ".###")
MsgBox ("B=" & A), , ("Результат")
End Sub
 
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

End Sub