Първо искам да те посъветвам да не залиташ твърде много по огромните гротескни формули и абстрактни алгоритми..първо си обясни нещата и тогава можеш сам да си намериш формула и да я оптимизираш след това.

Какво е Tangent ?
Фунцията Tangent (Tan) приема като аргумент ъгъл и връща отношението на срещулежащия към прилежащия катет на този ъгъл

Какво а ArcTangent ?
Фунцията ArcTangent (Atan) приема като аргумент отношението на големината на срещулежащия катет към големината на прилежащия и връща ъгъла между тези катети..звучи просто нали ?
Резултата е в границите от - РI / 2 to PI / 2 в радиани

Dim pi as Double
pi = 4 * Atn(1) ' Изчисляваме стойността на pi

Надявам се да съм помогнал малко...