Dim Mark As Integer
Dim Grade as String
Mark = TextBox1.Text
If myNumber >=80 Then
     Grade=”A”
ElseIf Mark>=60 and Mark<80 then
     Grade=”B”
ElseIf Mark>=40 and Mark<60 then
     Grade=”C”
Else
     Grade=”D”
End If