Public Function ArcSin (x As Variant) As Variant

    Select Case x
        Case -1
            ArcSin = 6 * Atn(1)
            
        Case 0:
            ArcSin = 0
            
        Case 1:
            ArcSin = 2 * Atn(1)
            
        Case Else:
            ArcSin = Atn(x / Sqr(-x * x + 1))
    End Select
End Function