Atn function

Atn( rad )

Returns the arc tangent of a number.

The argument rad can be any numeric expression. The result is expressed in radians.

Sub AtnExample()
   Dim Msg, Pi   ' Declare variables.
   Pi = 4 * Atn(1)   ' Calculate Pi.
   Msg = "Pi is equal to " & Str(Pi)
   MsgBox Msg   ' Display results.
End Sub