Public Function ArcCos (x As Variant) As Variant

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