Ejercicio 3: Condicional básica - Determinar si un número es positivo, negativo o cero

Ejercicio 3: Condicional básica - Determinar si un número es positivo, negativo o cero

Escribe una macro que pida al usuario un número y muestre un mensaje indicando si es positivo, negativo o cero.

1. Iniciar macro
2. Pedir al usuario que ingrese un número y guardar en variable
3. Si el número es mayor que 0, mostrar mensaje "El número es positivo"
4. Si el número es menor que 0, mostrar mensaje "El número es negativo"
5. Si el número es igual a 0, mostrar mensaje "El número es cero"
6. Terminar macro

Sub DeterminarSigno()
  Dim num As Double
  num = CDbl(InputBox("Ingresa un número:"))
  If num > 0 Then
    MsgBox "El número es positivo"
  ElseIf num < 0 Then
    MsgBox "El número es negativo"
  Else
    MsgBox "El número es cero"
  End If
End Sub