Example 3 could be rewritten as follows

Example 3 could be rewritten as follows:

Dim mark As Single
Private Sub Compute_Click()
'Examination Marks
mark = mrk.Text Select Case mark
Case 0 to 49 comment.Caption = "Need to work harder"
Case 50 to 59 comment.Caption = "Average"
Case 60 to 69
comment.Caption = "Above Average"

Case 70 to 84
comment.Caption = "Good"

Case Else
comment.Caption = "Excellence"

End Select

End Sub