Visual Basic - Ayuda con un registro

Hola, tengo un problema, estoy haciendo un programa que me ingrese los datos de los alumnos de una escuela, como el nombre, numero de control, calf1, calif2, calif3, y su promedio.

El programa debe de correr constantemente e ir almacenando la informacion en un arreglo (array) y detenerse hasta que el usuario ya no quiera ingresar mas datos.

El programa me corre bien lo malo es que cuando quiero imprimir en pantalla solo me imprime el ultimo registro

este es mi codigo a ver si alguien me puede ayudar a ver si le falta algo o que onda.
________________________________________________

Private Sub CmdImprimir_Click()
D = 0
For s = 1 To s
PSet (240, 600 + D): Print nom(25)
PSet (2760, 600 + D): Print nc(25)
PSet (4440, 600 + D): Print cal1(25)
PSet (5640, 600 + D): Print cal2(25)
PSet (6840, 600 + D): Print cal3(25)
PSet (8040, 600 + D): Print prom(25)
D = D + 200
Next s

End Sub

Private Sub Form_Load()

LABEL1:
nom(25) = InputBox("Nombre del alumno")
nc(25) = InputBox("Numero de Control")
cal1(25) = InputBox("Calificación Primer Parcial")
cal2(25) = InputBox("Calificación Segundo Parcial")
cal3(25) = InputBox("Calificación Tercer Parcial")
prom(25) = (cal1(25) + cal2(25) + cal3(25)) / 3
SN = InputBox("Desea llenar otro registro S/N")
If SN = "S" Or SN = "s" Then GoTo LABEL1

End Sub