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

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