Visual Basic - Sumar Listas

holas tengo solo una pegunta y es recontra sencilla como hago para Sumar el Contenido de una lista que tiene n cifras y hacer que esta suma vaya aun simple textbox.... nada mas no con List Count sino que me sume las cifras que yo ya añadi
Y ademas como hago para que los articulos x que ponga en una lista vayan a mi base de datos con solo hacer un click encima osea que habra varios articulos y mi proposito es que solo con seleccionar los que deseo vayan a mi base de datos...
muchas Gracias

para sumar

text1.text=""
for i= 0 to list1.listcount-1
txt1.text=val(txt1.text)+val(list1.list(i)
next

este codigo recorera todos los items de la lista sumandolos

para guardar seria asi
private sub list1_click
objeto.recordset.addnew
objeto.recordset.fields("campo1").value = list1.text
objeto.recordset.update
end sub

agrega a la base de datos el item seleccionado

espero esto te sirva
suerte