Example:

  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