Letter Grade Problem Code

Private Sub cmdLetterGrade_Click()

    Dim strName As String

    Dim intGrade As Integer

    strName = InputBox("Please Enter Student Name", "Student Name")

    intGrade = Val(InputBox("Please Enter Numeric Test Score", "Numeric Test Score"))

    Select Case intGrade

        Case Is >= 90

           MsgBox "Student Name: " & strName & " Letter Grade A", vbOKOnly, "A Student"

        Case Is >= 80

            MsgBox "Student Name: " & strName & " Letter Grade B", vbOKOnly, "B Student"

        Case Is >= 70

            MsgBox "Student Name: " & strName & " Letter Grade C", vbOKOnly, "C Student"

        Case Is >= 60

            MsgBox "Student Name: " & strName & " Letter Grade D", vbOKOnly, "D Student"

        Case Is < 60

            MsgBox "Student Name: " & strName & " Letter Grade F", vbOKOnly, "F Student"

        Case Else

            MsgBox "Grade Invalid", vbOKOnly, "Bad Grade Value Entered“

    End Select

End Sub