Find value returns nothing and I don't know why.

I can't figure this out. :/
So a user enters an ID, the program finds the grades based on the ID, and then it calculates the grade.
Well the find method doesn't come back with any values.

Can you please help?

Here's the code:

Sub GetForcedGrade()

     
    

End Sub