Relevé de Note

Bonjour,
je suis en étude d'informatique et je doit, dans le cadre d'un exercice, faire un tableau a 2 dimension avec n lignes et 2 colonnes et entrer dans chaque ligne le nom des étudiant et la notes associer.
Puis je doit donner la moyenne des notes entrer ainsi que le nom de celui qui a la plus grande note et celui qui a la plus faible. Néanmoins je n'arrive pas a faire fonctionner mon programme et je pense avoir une erreur dans l'affectation des variable dans mon tableaux
Voici mon programme :

n= InputBox ("Saisir le nombre d'etudiants")
n= CInt (N)

Dim noms ()
ReDim noms (n)

For i=0 to n-1
noms(i)= InputBox("Saisir un nom", Saisie)
Next

Dim notes()
ReDim notes (n)


For i=0 to N-1
     notes(i)=InputBox("Saisir une note", Saisie))
Next

min=20
max=0

For i=0 to n-1
if notes(i) < min then
   min = notes(i)
   imin = i
 Elseif notes(i)  > max then 
    max = notes(i)
    imax = i
end if 
Next

msgBox "L'etudiant qui a eu la note la plus faible est " & noms(imin)  
msgBox "L'etudiant qui a eu la note la plus forte est " & noms(imax)

Pour ce qui est de la moyenne je m'en occuperais apres .

Merci de votre aide