Public Function AssignGrade(studScore As Single)
Select Case studScore
Case Is >= 70
AssignGrade = "C"
Case Is >= 80
AssignGrade = "B"
Case Is >= 90
AssignGrade = "A"
Case Else
AssignGrade = "F"
End Select
End Function