Sub Form_Click( ) Dim I, Msg, NL NL = Chr(13) & Chr(10) Msg = Exp(1) & NL For I = 1 to 3 Msg = Msg & Log(Exp(1) ^ I ) & NL Next I MsgBox Msg End Sub