Private Function TimeAdd(ByVal Time1 As String, ByVal Time2 As String) As String
Dim iStd As Integer, iMin As Integer, iSec As Integer
 
'zuerst die sekunden, Stunden, minuten von beiden zeiten zusammenrechnen
iSec = Int(Mid(Time1, 7, 2)) + Int(Mid(Time2, 7, 2))
iMin = Int(Mid(Time1, 4, 2)) + Int(Mid(Time2, 4, 2))
iStd = Int(Mid(Time1, 1, 2)) + Int(Mid(Time2, 1, 2))
 
If iSec >= 60 Then iSec = iSec - 60: iMin = iMin + 1
If iMin >= 60 Then iMin = iMin - 60: iStd = iStd + 1
If iStd >= 24 Then iStd = iStd - 24
 
TimeAdd = Format$(iStd, "00") & ":" & Format$(iMin, "00") & ":" & Format$(iSec, _
  "00")
End Function