Помогиле пожалуйста записать эту формулу в вба

Function ArcSin(x As Double) As Double
    Dim Pi As Double
    Pi2 = 2 * Atn(1)
    Select Case x
    Case -1
        ArcSin = -Pi2
    Case 1
        ArcSin = Pi2
    Case x gt; -1 And x lt; 1
        ArcSin = Atn(x / Sqr(1 - x ^ 2))
    Case Else
        MsgBox "Недопустимое значение арксинуса " amp; CStr(x)
        ArcSin = 1
    End Select
End Function

Sub aaa()
    Dim a As Double, x As Double, z As Double, y As Double
    a = CDbl(InputBox("Задайте значение a"))
    x = a ^ 2 + 3
    z = Sin(a) + 5
    y = Exp(Sin(x) ^ 2) * Log(Abs(ArcSin(x))) / (z - 1)
    MsgBox "y=" amp; CStr(y)
End Sub

Значение y не будет вычислено никогда!
x 3, а у арксинуса аргумент не может быть больше 1.