¿Como puedo guardar en una matriz si cumple la condición del curso ?

Hola necesito guardar en una matriz o vector los nombres de los alumnos del curso seleccionado a través de un form, el codigo de abajo me repite 47 veces el ultimo registro encontrado

gracias

CURSO = cmb_curso.SelText
Dim matriz(1 To 47) As String
ultimaFila = Columns("A:A").Range("A65536").End(xlUp).Row

For i = 2 To ultimaFila

If Cells(i, 4) = CURSO Then
For e = 1 To 47
matriz(e) = Cells(i, 5)
Next
End If
Next