Даны действительные числа А и В. Получить z = arcsin (|ab|)+10 sin(b)

Private Sub Command1_Click()
Const Pi = 3.14
Dim A As Single, B As Single, x As Single, arcsin As Single
A = Val(Replace(InputBox("Введите значение A=", "Ввод данных", 0.5), ",", "."))
B = Val(Replace(InputBox("Введите значение B=", "Ввод данных", 0.7), ",", "."))
x = Abs(A * B)
 
    If x > -1 And x < 1 And x <> 0 Then
         arcsin = Atn(x / Sqr(1 - x ^ 2))
    Else
         MsgBox "ERROR", vbCritical, "Некорректные данные": Exit Sub
    End If
 
    z = arcsin + 10 * Sin(B)
    MsgBox z
End Sub

Dim pi#
 
Private Sub Form_Load()
    pi = Atn(1) * 4
End Sub
 
Function ASin(ByVal x As Double) As Double
    If Abs(x) = 1 Then
        ASin = pi / 2 * Sgn(x)
    ElseIf Abs(x) < 1 Then
        ASin = Atn(x / (1 - x ^ 2) ^ 0.5)
    End If
End Function

Dim pi#
Private Sub Form_Load()
    pi = Atn(1) * 4
End Sub
 
Function ASin(ByVal x As Double) As Double
    If Abs(x) = 1 Then
        ASin = pi / 2 * Sgn(x)
    ElseIf Abs(x) < 1 Then
        ASin = Atn(x / (1 - x ^ 2) ^ 0.5)
    End If
End Function
 
Private Sub Command1_Click()
Dim A As Double, B As Double, x As Double, z As Double
    A = Val(Replace(InputBox("Введите значение A=", "Ввод данных", 0.5), ",", "."))
    B = Val(Replace(InputBox("Введите значение B=", "Ввод данных", 0.7), ",", "."))
    x = Abs(A * B)
    z = ASin(x) + 10 * Sin(B)
    MsgBox z
End Sub