example Select Case expression 2

Example 2

Dim mark As Single

Private Sub Compute_Click() 'Examination Marks
mark = mrk.Text Select Case mark
Case Is >= 85 comment.Caption = "Excellence"
Case Is >= 70 comment.Caption = "Good"

Case Is >= 60
comment.Caption = "Above Average"

Case Is >= 50
comment.Caption = "Average"

Case Else
comment.Caption = "Need to work harder"

End Select

End Sub