hacer suma usando for vb formulario

[tinlui]

Hola a todos acabo de hacerme una cuenta aqui porque veo que si responden rapido bno como se ve en el tema lo que me pidieron es
usando el for agregar dies numeros d una caja d texto y por ultimo que lo sume y t de el resultado aqui el codigo k estoi usando pro tengo un problema que no puedo hacer k pare el for para que ingrese los siguientes numeros sino que en las diez posiciones m toma el primer numero que ingrese en la caja de texto a y todo tiene que ser usando un boton:

Dim i As Integer
Dim total As Integer = 0
Dim lista As ArrayList = New ArrayList(10)


For i = 1 To 10 Step 1
lista.Add(Val(TxtNumero.Text))


total = total + lista(i)
MsgBox("has agredado el numero " & i)
TxtNumero.Clear()
TxtNumero.Focus()
If i = 10 Then

MsgBox(total)
End If
Next i
a una cosa mas igual i el codigo no esta muy bien pro esk le he hecho varias modificaciones i la verdad ahorita ia estoy revuelto