Function grade(ByVal mark As Object) As String

Select Case mark
Case Is >= 80
grade = "A"
Case Is >= 70
grade = "B"
Case Is >= 60
grade = "C"
Case Is >= 50
grade = "D"
Case Is >= 40
grade = "E"
Case Else
grade = "F"
End Select

End Function


Private Sub Button2_Click()

End

End Sub

Private Overloads Sub Compute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Compute.Click
grading = MsgBox(grade(mark))


End Sub
End Class