Example - Atn Function

1. Sub AtnExample ()

   1. Dim Msg, Pi' Declare variables.

      Pi = 4 * Atn(1)' Calculate Pi.

      Msg = "Pi is equal to " & Str(Pi)

      MsgBox Msg' Display results.

   End Sub