Sub umrechnung()
    Dim sekunden As Long
    Dim stunden As Long
    Dim minuten As Long
    Dim restSekunden As Long
    sekunden = InputBox("Bitte geben Sie die Sekunden ein")
    eingegebeneSekunden = sekunden
    stunden = sekunden \ 3600
    restSekunden = sekunden Mod 3600
    minuten = restSekunden \ 60
    sekunden = restSekunden Mod 60
    MsgBox ("Ihr Ergebnis: " & Chr(13) & eingegebeneSekunden & " Sekunden     sind " & Chr(13) & stunden & " Stunden " & minuten & " Minuten und " & sekunden & " Sekunden")
End Sub