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