secondo me non hai bisogno di un array, ti basta calcolare il totale usando gli item, ad esempio
codice:
private sub CalcolaTotali()
    dim i as integer,d as double
    for i = 0 to list1.listcount-1
        list1.listindex= i 
        d = d+list1.text
    next i 
    label1.caption = "€ " & formatnumber(d,2) 
end sub 

Private Sub Command1_Click()
CalcolaTotali
end sub
l'ho scritto cosi veloce...prova a capire questo codice.
metti CalcolaTotali alla fine di ogni operazione di popolazione della listbox, o quando rimuovi un item.
spero di essere stato chiaro