Paco aquí te va, y esta si esta probada
Cita: Public Function SumarListBox(Lista As ListBox) As Long
Dim Suma As Long
Lista.ListIndex = 0
Suma = Suma + Val(Lista.Text)
Do While Not Lista.ListIndex = Lista.ListCount - 1
Lista.ListIndex = Lista.ListIndex + 1
Suma = Suma + Val(Lista.Text)
Loop
SumarListBox = Suma
End Function
la llamas de la siguiente forma (Supongo que ya lo sabras)
Cita: label1.caption = sumarlistbox(list1)
Salu2