Dim Precio

Dim dineroDisponible

Precio = 150

dineroDisponible = 100

if  dineroDisponible > precio then

msgbox "Ok, te alcanza puedes comprarlo"

Else

msgbox “No te alcanza, consiga más dinero"

End if

Este botón te sirve para indicar los signos de mayor que y menor que en el cual el ejemplo dice que es mayor el precio que el dinero disponible y que por lo tanto no alcanza. Después si el dinero disponible es mayor que el precio si te alcanza.

 Dim Name

Name=inputbox("Y tú quién eres?")

If 

 Name = “ " then

 Msgbox "Hola sin nombre :/"

else

msgbox "Mucho gusto en conocerte" + Name 

end if

No funciona

Dim dinero

dinero=inputbox ("Cuánto dinero tienes ahorrado?")

if 

dinero= 0 Or dinero < 10 then 

Msgbox “Estas pobre"

else

Msgbox “Tienes poco ahorrado“

 end if

Tampoco funciona