'Verifica se o numero é 0 , negativo ou positivo função Select Case

Sub exercAlternativo()
'Verifica se o numero é 0 , negativo ou positivo
Dim numero As Integer
numero = Val(InputBox("Digite o Valor"))
   
    Select Case numero
    Case Is < 0
        MsgBox " Numero Negativo "
    Case 0
        MsgBox " Valor é Zero "
    Case Else
        MsgBox " Valor Positivo"
    End Select

End Sub