Как получить значение функции с параметром - VB

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

Function ArcSin(X As Double) As Double
   ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
 
Function ArcCos(X As Double) As Double
   ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
 
Private Sub tttt_Click()
Dim a,b,c As Double
a = 10
b = ArcSin(a)
MsgBox (b)
 
End Sub

Пишет ошибку *нет вызова процедуры или функции*, как я понял (инвалид кол процедур о функшин) Скажите пожалуйста, как правильно написать? И вообще можно так? (я дилетант да) Я бы не парился с функцией и подставлял бы X так, но просто в формулах арки от еще одних формул. Спасибо за внимание.

Решение задачи: «Как получить значение функции с параметром»

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

                            Option Explicit
Function ArcSin(X As Double) As Double
   ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
 
Function ArcCos(X As Double) As Double
   ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
 
Private Sub tttt_Click()
Dim a As Double, b As Double, c As Double
a = 0.6
b = ArcSin(a)
MsgBox (b)
 
End Sub
                        