Ciao Ragazzi, ho bisogno di un aiuto.

A scuola mi è stato dato un esercizio base sugli array, ovvero devo caricare e visualizzare 5 nomi. Per il caricamento non ho avuto problemi.
Il professore vuole che per capire bene il funzionamento dell'array, devo fare in modo di farli visualizzare in una Label.

Questo è il codice del caricamento più le variabili:

Dim Nome As String
Dim ElencoPersone(4) As String
Dim Contatore As Integer

Private Sub cmdCarica_Click()
Nome = InputBox("Scrivi il nome", "Inserisci il Nome")
ElencoPersone(Contatore) = Nome
Contatore = Contatore + 1
If Contatore = 5 Then
cmdCarica.Enabled = False
End If
End Sub

Questo è il form:


Per la visualizzazione stavo provando un codice del genere:
Private Sub cmdVisualizza_Click()
lblDati.Caption = ""
For Cont = 1 To Contatore
lblDati.Caption = ElencoPersone(Nome)
Next
Cont = Cont + 1
End Sub

Mi da Errore 13