Массив: для всех с оценкой ниже среднего балла заново ввести оценки и потом пересчитать средний балл

Option Base 1
 
Private Type studentInfo
 soname As String 'Фамилия
 points As Integer 'Оценка
End Type
 
Private Sub Form_Load()
Me.AutoRedraw = True 'Печать на форме
Dim a(5) As studentInfo
Dim i As Integer
Dim srbal As Double
 
For i = 1 To 5
a(i).soname = InputBox("Введите фамилию " + Str(i) + " студента") 'Ввод фамилии
a(i).points = InputBox("Введите оценку " + Str(i) + "  студента") 'Ввод оценки для студента с этой фамилией
srbal = srbal + a(i).points 'Подсчет суммы оценок
Next
 
srbal = Format(srbal / 5, "0.0") 'Нахождение среднего балла
 
For i = 1 To 5
If a(i).points < srbal Then
a(i).points = InputBox("Введите заного оценку " + Str(i) + "  студента") 'Ввод заного оценок для студентов, чьи оценки меньше среднего бала
End If
srbal = srbal + a(i).points
Next
 
srbal = Format(srbal / 5, "0.0") 'Подсчет нового среднего бала
    
For i = 1 To 5 'Вывод всего
Print "Студент ", a(i).soname, " Оценка ", a(i).points
Next
 
Print "Средний бал: ", srbal
    
End Sub

 Dim Int_Array1(1 To 5) As String
    Dim Int_Array2(1 To 5) As Integer

Dim str_msg As String

for o = 1 to 5
srb = srb + Int_Array2(o)
next
srb = srb / 5

for 0 = 1 to 5
If Int_Array2(o) < srb then
Int_Array2(o) = InputBox("Введите заного оценку студента", "Повторный ввод оценок студентов")
Next