Sumar valores diferentes a una misma caja de texto

Question

Hola , estoy creando un formulario simulando una caja de super mercado , donde en una textbox se pondra el valor de el articulo uno, al hacer click en sumar, la text box se limpia y debe ingresarse el nuevo valor...pero no se como almacenar el valor para sumarlos de forma simultanea ...

+Como extra quiero usar esto dentro de una estructura FOR para que se sumen solo 10 articulos y al terminar de ingresar los 10 artigulos (Y tener la suma de todos) Se muestre un frame 

Answer 1

Private Sub cmdsiguiente_Click()
Dim suma As Integer
suma = 0

For I = 1 To 10

 
txtprecio = ""
txtprecio.SetFocus
lbltotal = txtprecio
Next I



End Sub