Уровнение с экспонентой - VBA

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

Всем доброй ночи! Ребят только начал обучение в VBА, наткнулся на задание, когда сделал выбивает ошибку: Задание: програмка простенькая, имеет 3 кнопки: посчитать, очистить поля, выход. Если х >0, y>0 то решается первой функцией, в другий случаях - вторым. Вот система : Сама проблема я так думаю заключается в экспоненте, скорее всего неправильно где то написал. Помогите, очень прошу ! Вот код программы на кнопку "Посчитать" :

Private Sub CommandButton1_Click()
Dim x, y, z As Double
x = CDbl(TextBox1.Text)
y = CDbl(TextBox2.Text)
If x > 0 And y > 0 Then
z = X ^ 2 * Math.Sin(2 * y) * Math.Exp ^ -0.3 * X
Else
z = (Math.Cos ^ 2) * (y) * x ^ 2
End If
z = Format(z, "0.00")
TextBox3.Text = CStr(z)
End Sub

Решение задачи: «Уровнение с экспонентой»

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

                            Option Explicit
Private Sub CommandButton1_Click()
    Dim x As Double, y As Double, z As Double
    x = CDbl(TextBox1.Text)
    y = CDbl(TextBox2.Text)
    If x > 0 And y > 0 Then
          z = (x ^ 2) * Math.Sin(2 * y) * Math.Exp(-0.3 * x)
    Else
          z = (Math.Cos(y) ^ 2) + x ^ 2
    End If
    z = Format(z, "0.00")
    TextBox3.Text = CStr(z)
End Sub
                        