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