+2+4+6=12

Dim I As Integer
Dim S As Integer
Dim M As String

For I = Val(TextBox1.Text) To Val(TextBox2.Text) Step Val(TextBox3.Text)

S = I + S
M = M & "+" & I
Next

MsgBox(M & "+" & S)