Dim lngErgebnis As Long    ' den Wert hast Du also schon und gibt die 
' Gesamtsekunden an
Dim lngStunden As Long
Dim lngMinuten As Long
Dim lngSekunden As Long
 
lngStunden = Int (lngErgebnis / 3600)
lngErgebnis = lngErgebnis - lngStunden * 3600
lngMinuten = Int (lngErgebnis / 60)
lngSekunden = lngErgebnis Mod 60