Calssificar por categoria de idade alunos de uma Academia

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