Функция VBA l oop всегда возвращает 1

Question

Вот моя функция, я хочу создать функцию для вычисления ранга числа, но она всегда возвращает 1 в рейтинге. Как это исправить, и добавить «N / A» до его начала.

Function Ranking(Score As Double) As Integer

    Dim count As Integer

    Range("C6").Value = "N/A"
    Ranking = 1      

    For count = 1 To num_of_students
        If student_records(count, 3) > Score Then
            Ranking = Ranking + 1      
        Else   
            Exit For
        End If
    Next

    Range("C6").Value = Ranking

End Function