PUBBLICARE E RICHIAMARE UN ARRAY!!!!!

Salve a tuttiii!

ho questo problemino che non riesco a risolvere, per quanto riguarda la memorizzarzione di dati in un array per poi fare la sottrazione in una label selezionando i valori da una list:

nel pulsante "aggiungi nella lista" c'è il seguente codice, ovvero quello che mi memorizza i dati nelll'array:

Private Sub Command1_Click()

Dim contatore(100) As Integer

List1.AddItem (Text1.Text)

contatore(i) = Text1.Text

MsgBox " " & contatore(i) & " "


Label1 = Val(Label1) + (Text1.Text)
Text1.Text = ""

End Sub
-------------------------------------------------------------------------------------------------
mentre qui c'è il codice dove vado a rimuovere il valore nella list (che va bene) e contemporarenamente DOVREI togliere il prezzo anche dal totale:

Private Sub Command2_Click()

Dim contatore(100) As Integer <----------qui dovrei richiamare l'array di sopra che mi ha salvato i valori


i = List1.ListCount - 1

While i >= 0

If List1.Selected(i) = True Then

List1.RemoveItem (List1.ListIndex)
MsgBox " " & contatore(i) & "" <----- qui giustamente mi stampa a video 0 perchè non c'è niente.
Label1 = Label1 - contatore(i)

End If
i = i - 1
Wend

End Sub