Sub fecha()
    nombre = InputBox("¿Cómo te llamas?")
    If nombre = "" Then
        MsgBox "Disculpa, no te entendí."
    Else
        MsgBox "Hola " & nombre & "."
    End If
    MsgBox "Hoy es " & Date & "."
End Sub
