If-Then Test Not Working To Control Print Jobs Being Sent

I'm trying to print individualized reports from my Excel gradebook for only those students whose grades are below 70%. I thought an If, Then structure could do that, but the code I've come up with keeps printing reports for ALL students regardless of their grade.

totalgradeindreport refers to a cell in the gradebook where the student's total grade is displayed as a percentage. The value is actually a decimal number (I think), so I have tried to build a test for the If-then statement

If totalgradeindreport * 100 < Criterion Then

to control printing. But I am obviously doing something wrong.

Here is the


Sub DandFreports()

Criterion = InputBox("Print reports for all students whose grade falls below what percentage?", "Info", "70")

Test = Criterion / 100

Count = InputBox("Please enter the highest possible student number.")