Cos Function Example

This example uses the Cos function to return the cosine of an angle.

Dim MyAngle, MySecant
MyAngle = 1.3    ' Define angle in radians.
MySecant = 1 / Cos(MyAngle)    ' Calculate secant.