codice:
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
Non riesco a capire cosa vuoi fare con questo codice, usi "i" senza ne dichiararla e senza fare un ciclo...
Per quello che ho capito posso solo dirti che se devi usare le variabili in piu routine devi dichiararle in alto, prima di tutto, e non dentro le routine stesse. In questo modo le variabili non si limitano a memorizzare i dati solo per la durata della routine, ma rimangono in memoria per tutta la durata del programma, quindi potrai utilizzarle in piu routine.

Prova a spiegare meglio cosa devi fare e che problemi incontri.

PS: usa il tag CODE per postare i codici (leggi qua).