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

Формулировка задачи:

Дан массив 5-ти фамилий и массив 5-ти оценок. Надо для всех с оценкой ниже среднего балла заново ввести оценки и потом пересчитать средний балл. Помогите с написанием рассчета среднего балла и повторного ввода оценок. Вот моя часть программы без рассчета среднего балла и повтора ввода:

Sub Lab8_12()
    Dim Int_Array1(1 To 5) As String
    Dim Int_Array2(0 To 1) As Integer
    Dim str_msg As String
    Dim f As Integer
    Dim o As Integer
    
    str_msg = ""
    For f = 1 To 5
        Int_Array1(f) = InputBox("Введите фамилию студента", _
        "Ввод оценок студентов")
            
        Int_Array2(o) = InputBox("Введите оценку студента", _
        "Ввод оценок студентов") 
    Next f
 
    For f = 1 To 5
        str_msg = str_msg & vbTab & Int_Array1(f)
        str_msg = str_msg & vbTab & Int_Array2(o)
        str_msg = str_msg & vbCr
    Next f
    
    MsgBox "Оценки студентов: " & vbCr & str_msg
 End Sub

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

textual
                            Листинг программы 
                        
                             Dim Int_Array1(1 To 5) As String
    Dim Int_Array2(1 To 5) As Integer