Private Sub Command3_Click() Dim s As String s = "" For i = 1 To 100 s = s & i & "^2=" & i ^ 2 & " sqrt(" & i & ")=" & Sqr(i) & " e^" & i & "=" & Exp(i) & vbCrLf Next i Text1.Text = sEnd Sub