Вывод динамического массива

Option Explicit
Dim massiv() As Student
Dim massiv1() As Student
Dim massiv2() As Student
Dim a As Integer
Dim s As Student
Dim i As Integer
Dim j As Integer
 
Private Type Student
   NAME As String * 30
   НомерГруппы As Integer
   Успеваемость(5) As Integer
End Type
 
Private Sub Количество_студентов_Click()
a = InputBox("Введите количество студентов", "Ввод данных")
End Sub
 
Private Sub Ввод_ФИО_Click()
ReDim massiv(0)
 For i = 1 To a
  s.NAME = InputBox("Введите ФИО " & i & "-го студента", "Ввод данных")
  massiv(UBound(massiv)) = s
  ReDim Preserve massiv(UBound(massiv) + 1)
 Next i
End Sub
 
Private Sub Ввод_групп_Click()
ReDim massiv1(0)
 For i = 1 To a
  s.НомерГруппы = InputBox("Введите Номер группы " & i & " -го студента", "Ввод данных")
  massiv1(UBound(massiv1)) = s
  ReDim Preserve massiv1(UBound(massiv1) + 1)
 Next i
End Sub
 
Private Sub Успеваемость_Click()
 ReDim massiv2(0)
 For i = 1 To a
  For j = 1 To 5
     s.Успеваемость(j) = InputBox("Введите " & j & "-ую оценку " & i & "-го студента", "Ввод данных")
     massiv2(UBound(massiv2)) = s
 ReDim Preserve massiv2(UBound(massiv2) + 1)
   Next j
 Next i
End Sub
 
Private Sub Вывод_Click()
Form2.Show
ReDim Preserve massiv(UBound(massiv) - 1)
 For i = 0 To UBound(massiv)
  Form2.Print i + 1, massiv(i).NAME, massiv1(i).НомерГруппы,
  For j = 1 To 5
   Form2.Print massiv2(j).Успеваемость(j);
  Next j
  Form2.Print
 Next i
End Sub