"Select Case" Calssificar por categoria de idade alunos de uma Academia

Sub AcademiaNatacao()
'"Select Case" Calssificar por categoria de idade alunos de uma Academia
    Dim idade As Integer
    Dim mensagem As String
       
        idade = Val(InputBox("Digite a Idade"))
       
        Select Case idade
            Case Is < 0
                MsgBox "Idade Invalida"
            Case Is < 5
               MsgBox "Sem Categotia"
            Case Is < 8
                MsgBox "Infantil"
            Case Is < 11
               MsgBox "Infantil B"
            Case Is < 14
                MsgBox "Juvenil"
            Case Is < 18
               MsgBox "Juvenil B"
            Case Else
                MsgBox "Adulto"
        End Select
End Sub