我不太明白你的问题，VBA中已经有了arcsin函数，你可以使用它：

WorksheetFunction.Asin(myValue)

反正弦函数的使用

Dim myValue As Double
myValue = 0.1234

MsgBox CStr(WorksheetFunction.Asin(myValue))

在那里，您可以将值的arcsin函数的结果打印为Double。

下面的代码将帮助实现基于给定定义的ARCSIN函数：

Option Explicit
    Public Const Pi As Double = 3.14159265358979
    Private Function ArcSin(X As Double) As Double
      If Abs(X) = 1 Then
        'The VBA Sgn function returns an integer (+1, 0 or -1),
        'representing the arithmetic sign of a supplied number.
        ArcSin = Sgn(X) * Pi / 2
      Else
        'Atn is the inverse trigonometric function of Tan,
        'which takes an angle as its argument and returns
        'the ratio of two sides of a right triangle
        ArcSin = Atn(X / Sqr(1 - X ^ 2))
      End If
    End Function

ASIN比VBA版本慢4.7倍。
(Also，在Excel VBA帮助中搜索“派生数学函数”。）
我在Excel 2010中使用kernal 32函数'QueryPerformanceCounter（）'和'QueryPerformanceFrequency（）'进行了速度比较。
下面是我测试的函数（检查以避免#DIV/0！错误）：

Public Function ASin( _
      ByVal x As Double _
      ) As Double

   Const PIover2 As Double = 1.5707963267949

   If (x = 1) Then
      ASin = PIover2
   ElseIf (x = -1) Then
      ASin = -PIover2
   Else
      ASin = Atn(x / Sqr(-x * x + 1))
   End If

End Function

我使用10，000，000次迭代来测试该函数，以不同的顺序和组调用这两个函数，以考虑任何“灌注井”效应（我假设）。（您可以在下面看到，我调用VBA函数10 M次，然后WorksheetFunction 10 M次两次，等等。）以下是速度测试结果：

'WorksheetFunction is about 4.7 times slower than VBA
'    VBA(1)   WSF(1)   WSF(2)   VBA(2)   VBA(3)   WSF(3)   WSF/VBA
'    1.983    9.383    9.377    1.968    1.976    9.410    4.753