Enum Grades
A = 100
B = 89
C = 79
D = 69
F = 64
End Enum
Sub GetGradeLetter(intGrade) as string
Select Case True
Case intGrade > Grades.A
Return "Cheater"
Case intGrade > Grades.B
Return "A"
Case intGrade > Grades.C
Return "B"
Case intGrade > Grades.D
Return "C"
Case intGrade > Grades.F
Return "D"
Case Else
Return "Loser" 'Do not let this get into production
End Select
End Sub