Visual Basic & arc cos

[_black_bird]

Boas...
Tenho um aki um problema k n consigo resolver
É k n sei pk raio o meu visual basic 6.0sp6 n aceita o comando acos ( supostamente arccos )
Exemplo
1.852 * 60 * acos((Sin(la1) * Sin(la2)) + (Cos(la1) * Cos(la2) * Cos(l02 - l01)))
Alguem me sabe ajudar como resolver este problema ?
Agradecia imenso.

[dbbm]

Penso ser isto:

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

Private Function ArcSin(X As Double) As Double
ArcSin = Atn(X / Sqr(-X * X + 1))
End Function

[_black_bird]

obrigada