valorizzare un vettore non ci riesco perchè?

[globalace]

Chiedo aiuto sto impazzendo, ho questo script vba:

For y = 1 To 30
If (Docenti(y) = "-") Then
Docenti(y) = docente
Docenti_m(y) = materia
Docenti_o(y) = 1
y = 30
MsgBox ("Inserito " & Docenti(y) & " " & Docenti_m(y) & "...." & docente & " " & materia)
End If
Next y

il msgbox mi stampa - - .... nome materia, in precedenza ho inizializzato con - gli arrei Docenti e Docenti_m pur eseguendo

Docenti(y) = docente
Docenti_m(y) = materia


non mi viene settato il valore perchè?
grazie

[globalace]

COME NON DETTO!
scusa era y=30 che mi mandava in tilt tutto