Написать программу , для выставления оценок всего до 25- оценка 2 от 25 до 35 оценка 3 иначе 2 от 36 до 46 оценка 4 иначе 3 больше 47 оценка 5 бейсик

Sub balls()
    Dim ball As Integer, score As Integer
    score = Val(InputBox("Введите полученную сумму "))
    Select Case score
    Case 25 To 35: ball = 3
    Case 36 To 46: ball = 4
    Case Is > 47: ball = 5
    Case Else: ball = 2
    End Select
    MsgBox ball
End Sub