'Função (Select Case), Academia seleciona Categoria por faixa de idade

Sub procacadnatacaoCase()
'Função Select Case, Academia seleciona Categoria por faixa de idade
    Dim idade    As Integer
    Dim mensagem As String
     idade = Val(InputBox("Digite a Idade"))
   
    Select Case idade
        Case Is = 0
            mensagem = "Idade Incorreta"
        Case Is < 5
            mensagem = "Sem Categoria"
        Case Is < 8
            mensagem = "Infantil"
        Case Is < 11
            mensagem = "Infantil B"
        Case Is < 14
            mensagem = "Juvenil"
        Case Is < 18
            mensagem = "Juvenil B"
        Case Else
           mensagem = "Adulto"
    End Select
     
        MsgBox mensagem
End Sub