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

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