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