Função (IIf), Verifica se Numero é Negativo ou Positivo

Sub testeiif()
'Função IIf, verifica se numero é negativo ou Positivo
    Dim numero   As Integer
    Dim mensagem As String
 
        numero = Val(InputBox("Digite o Valor"))
        mensagem = IIf(numero < 0, "Numero Negativo: ", "Numero Positivo: ")
        MsgBox mensagem & numero
End Sub