' Verifica se o Numero é 0 ou Positivo ou Negativo

 Sub proc2()
 ' verifica se o nmero é 0 ou positivo ou negativo
    Dim numero As Integer
    Dim mensagem As String
        numero = Val(InputBox("Digite um Valor"))

     If numero < 0 Then
         mensagem = "Numero é Negativo: " & numero
    ElseIf numero = 0 Then
        mensagem = "Numero Digitado é 0."
    Else
        mensagem = "numero e positivo: " & numero
    End If
        MsgBox mensagem
 End Sub