'Funçao (If ElseIf) Verifica se é numero negativo, maior ou menor que 10

Sub proctesteIF1()
'funçao if ElseIf verifica se é numero negativo, maior ou menor que 10
    Dim numero      As Integer
    Dim mensagem    As String
 
    numero = Val(InputBox("Digite um Valor : "))
     
        If numero < 0 Then
            mensagem = "Numero Negativo"
        ElseIf numero = 0 Then
            mensagem = "Valor entrado foi Zero"
        ElseIf numero <= 10 Then
            mensagem = "Numero menor ou Igual a 10"
        Else
            mensagem = " Numero é Maior que 10"
        End If
     
        MsgBox mensagem
         
End Sub