Hola...
Bueno aunque no estoy dle todo seguro, diria por la pinta que el problema de la matriz estaria en la funcion cuando pones Lista(i).
Quí seria el error logico de la matriz, si no estoy en lo cierco por favor corrigeme.
Ahora para sumar los elementos de un listbox yo haria lo siguiente.
(No lo puedo probar ahora mismo or que no tengo el visual basic a mano, asique perdoname las faltas xD)
Cita: Private Sub SumarLista()
Dim Suma as long
do while list1.listindex = list1.listcount -1 'aquí igual ya hay un fallo
suma = suma + val(list1.text)
list1.listindex = list1.listindex +1
loop
end sub
Esto deberia funcionar
Ya me cuentas
Por cierto y ahora me doy cuenta en tu funcion cuando usar el for no te hace falta un next??
Venga espero haberte ayudado
Edito: se me ha adelantado ant_z19