Sub Saludo()
    nombre = InputBox("Hola. Soy una macro. ¿Cómo te llamas?")
    mensaje = "Mucho gusto, " & nombre _
        & ". Hoy es " & Date _
        & " y son las " & Time
    MsgBox mensaje
End Sub
