Eines Sache ist mir beim schnellen Durchschauen aufgefallen:

Für die Umrechung von Grad in Radiant gibt es die Funktion Deg2Rad()

'SIN(A1*PI/180)

Code:
B1 = A1 * Pi 
B1 = B1 / 180 
C1 = Sin(b1)
kann daher auch so gerechnet werden.

Code:
B1 = Deg2Rad(A1)
C1 = Sin(B1)
Das braucht weniger Code und geht schneller.

Mit Rad2Deg() gibt es auch den umgekehrten Weg.