Sub Sample() Dim msg As String, i As Integer msg = Exp(1) & vbCrLf For i = 1 To 3 msg = msg & Log(Exp(1) ^ i) & vbCrLf Next i MsgBox msg End Sub