Sub klik_Click()
Dim dny, hodiny, minuty, sekundy As Long

    dny = InputBox("Kolik dní zbývá do začátku výletu?")
    hodiny = dny * 24
    minuty = hodiny * 60
    sekundy = minuty * 60

    MsgBox "Do toho osudného dne zbývá " & dny & " dní, to je " & hodiny & " hodin, to je " & minuty & " minut, to je " & sekundy & " vterin !"

End Sub