Tema: Arccos i Arcsin en Visual Basic 2005 (qué simpáticos)

Código:

Public Function arcsin(x As Double) As Double
    arcsin = Atn(x / Sqr(-x * x + 1))
End Function

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

Estas funciones son para Visual Basic 6, pero no sé si las podrás copiar y pegar tal cual o tendrás que convertirlas (yo no he tocado el 2005 para nada, pero sí el 2008 y las cosas eran un poquito (bastante) distintas).