'Função (If ElseIf), Academia seleciona Categoria por faixa de idade

Sub procacadnatacao()
'Função If ElseIf, Academia seleciona Categoria por faixa de idade
    Dim idade    As Integer
    Dim mensagem As String
 
     idade = Val(InputBox("Digite a Idade"))
   
        If idade < 0 Then
            mensagem = "Idade Incorreta"
         
            ElseIf idade < 5 Then
            mensagem = "Sem Categoria"
         
            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