Как исправить ошибку "Type mismatch"? - VB

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

Добрый день, уважаемые пользователи! Прошу Вашей помощи! Понимаю, что все должно быть элементарно, но что-то не получается... У меня на листе "Rank" есть некие результаты расчетов среднего бала студента. Но не у всех он есть и программа, вместо бала, указывает "#ДЕЛ/0!". Мне необходимо скопировать на лист "Zag" только те строки, где есть средний бал. При запуске макроса выдает ошибку на строке "If Sheets("Rank").Cells(a, 3).Value <> "#ДЕЛ/0!" Then". Я понимаю, что здесь вопрос в типах данных, но как исправить не знаю. Заранее спасибо за помощь!

Sub Г‘ГЄГ°ГіГЈГ«ГҐГ*Г*Г»Г©ГЇГ°ГїГ¬Г®ГіГЈГ®Г«ГјГ*ГЁГЄ2_Г™ГҐГ«Г·Г®ГЄ()
        
Dim a As Integer
For a = 3 To a + 800
   If Sheets("Rank").Cells(a, 3).Value <> "#ДЕЛ/0!" Then
           Sheets("Zag").Cells(a, 2) = Sheets("Rank").Cells(a, 2)
           Sheets("Zag").Cells(a, 3) = Sheets("Rank").Cells(a, 3)
      End If
 Next a
Sheets("Zag").Select

End Sub

Решение задачи: «Как исправить ошибку "Type mismatch"?»

textual
                            Листинг программы 
                        
                            If Cstr(Sheets("Rank").Cells(a, 3).Value) <> "#ДЕЛ/0!" Then