Visual Basic - Ayuda urgente con listbox

Saludos, tengo un listbox que le voy añadiendo numeros a traves de un boton, y necesito que cada vez que presione el boton para agregar una cantidad me aparezca en un textbox la sumatoria de dichas cantidades pero que se vaya actualizando en el textbox cada vez que pulso el boton para agregar al listbox. Es urgente...muchas gracias!!!

Private Sub Command1_Click()
Dim Suma As Double
For i = 0 To Me.List1.ListCount - 1
Suma = Suma + CDbl(List1.List(i))
Next i
Text1 = Suma
End Sub
Saludos!!!!

Hola, a ver si te sirve esto
después de añadir un número
'recorremos todos los valores que hay en la lista List1 y las vamos sumando a la variable x que es integer o double...
For i = 0 To List1.ListCount - 1
x = x + Val(List1.List(i))
Next
'mostramos el valor obtenido en la caja de texto Text1
Text1.Text = x
'y lo vaciamos para la próxima vez que pulses el botón
x = 0

un saludo

Muchisimas gracias, los dos codigos funcionaron perfectamente. Saludos!!