Public Function AssignGrade(studScore As Single) As String
Select Case studScore
Case 90 To 100
AssignGrade = "A"
Case 80 To 89
AssignGrade = "B"
Case 70 To 79
AssignGrade = "C"
Case Else
AssignGrade = "F"
End Select
End Function