Составить алгоритм и программу вычисления по формуле - VB

Private Sub cmdRun_Click()
    Dim Z As Double
    Dim X As Double, Y As Double, A As Double, B As Double
    X = CDbl(txtX.Text)
    Y = CDbl(txtX.Text)
    A = CDbl(txtX.Text)
    B = CDbl(txtX.Text)
    Z = (((X ^ 5) * (Cos(2 * Y) ^ 2) + (Y ^ 3) * (Sin(X) ^ 2)) ^ (1 / 3)) / _
       Atn(Abs((X ^ 5) * Cos(2 * Y) / (Y ^ 3))) - _
       (Sin(X) + Sqr((X ^ 5) * Cos(2 * Y))) / ((Y ^ 3) * Sin(X) / Log(Abs(A / B + (X * Y / Sin(X)))))
    txtRes.Text = Z
End Sub