Example:

  1. Sub Form_Click ( )

    1. Dim I, Msg, NL

      NL = Chr(13) & Chr(10)

      Msg = Exp(1) & NL

      For I = 1 to 3

      1. Msg = Msg & Log(Exp(1) ^ I ) & NL

      Next I

      MsgBox Msg

    End Sub