Example:

1. Sub Form_Click ()

   1. Dim Msg, Pi          ' Declare variables.

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

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

      MsgBox Msg          ' Display results.

   End Sub