Среди чисел в ячейках B5B27 найти номер заключительного элемента, одинакового числу

Помогите пожалуйста

Sub aaa()
    a = CInt(InputBox("Введите А"))
    i = 27
    Do While i gt;= 5
        If Cells(i, 2) = a Then
            MsgBox "Значение найдено в строке " + CStr(i)
            Exit Sub
        End If
        i = i - 1
    Loop
    MsgBox "Значение не найдено"
End Sub