fonction arccosinus

Bonjour,
quelqu'un pourrait il me dire comment implémanter la fonction arccosinus sur VBA? J'ai essayé Acos, ... mais cela ne fonctionne pas! J'ai bien un argument inférieur à l'unité.
D'avance merci beaucoup pour votre aide
Céline

En cherchant un peu sur google, je suis tombé sur cà (à tester si ca donne des résultats corrects) :

Private Function acos(x As Double) As Double
    acos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
End Function

la formule de DarK Sidious est le bonne, mais si tu veux être complètement correcte sur le domaine de définition de l'arccos, alors voilà:

If Abs(x) < 1 Then
    ACos = Atn(-x / Sqr(1 - x * x)) + 2*Atn(1)
ElseIf x = 1 Then
    ACos = 0
ElseIf x = -1 Then
    ACos = 4*Atn(1)
Else
    msgbox "Non défini pour |x|>1"
End If