Dim Zeit1 As Variant
Dim Zeit2 As Variant
Dim zDiff As Variant
 
Zeit1 = "15:08:20"
Zeit2 = "20:49:09"
 
Dim lngSec As Long
Dim lngMin As Long
Dim lngHour As Long
 
lngSec = DateDiff("s", Zeit1, Zeit2)
lngMin = (lngSec  60): lngSec = lngSec - (lngMin * 60)
lngHour = (lngMin  60): lngMin = lngMin - (lngHour * 60)
 
zDiff = Format$(TimeSerial(lngHour, lngMin, lngSec), "hh:nn:ss")
MsgBox "Zeit-Differenz: " & zDiff