Где ошибка - 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

Решение задачи: «Где ошибка»

textual
                            Листинг программы 
                        
                            T = FormatNumber(T, 3)