Visual Basic - principiante

recien estoy empezando en el tema de la programacion y tengo el suguiente problema tengo dos vectores uno con nombres de alumnos y otro con sus notas y lo quiero ordenar por nota , esto lo hago con ta siguiente funcion

For i = 1 To 25
For j = 1 To i - 1
If (vec_ord_notas(i) > vec_ord_notas(j)) Then
May = vec_ord_notas(i)
vec_ord_notass(i) = vec_ord_notas(j)
vec_ord_notas(j) = May
End If
Next
Next

con la anterior ordeno las notas pero no se me ocurre como las puedo relacionnar con el nombre del alumno. Si alguien sabe me seria de mucha ayuda.Desde ya muchas gracias

saludos Mariano

En ese metodo de ordenacion, solo ordenas las notas, cuando haces cambio de vector, no olvides cambiar de vector los nombres tambien, y ya.
Asi no mas no recuerdo como es (me acuerdo q en su momento me costo un par de intentos) pero es algo asi:

For i = 1 To 25
For j = 1 To i - 1
If (vec_ord_notas(i) > vec_ord_notas(j)) Then
May = vec_ord_notas(i)
nombre = nom_alum(i)
vec_ord_notass(i) = vec_ord_notas(j)
nom_alum(i) = nom_alum(j)
vec_ord_notas(j) = May
nom_alum(j) = nombre
End If
Next
Next

Espero q te sirva

muchas gracias. funciona perfecto!!