' Beispiel
ReDim sTime(10) As String
Dim i As Long
Dim nSek As Long
Dim nMin As Long
Dim nHour As Long
 
For i = 1 To 10
  sTime(i) = "23:00:00"
Next i
 
' Zeitangabe in Sekunden
For i = 1 To 10
  nSek = nSek + Hour(CDate(sTime(i))) * 3600 + _
    Minute(CDate(sTime(i))) * 60 + _
    Second(CDate(sTime(i)))
Next i
 
' jetzt in hh:nn:ss umwandeln
nHour = nSek \ 3600
nSek = nSek - (nHour * 3600)
nMin = nSek \ 60
nSek = nSek - (nMin * 60)
 
MsgBox Format$(nHour, "00") & ":" & Format$(nMin, "00") & ":" & Format$(nSek, _
  "00")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de