Option Explicit
Dim cstring As New clsNewString '---Left-Mid_Right_Klasse
Private Function DisplayTime(ByVal Sek As String) As String
 
  Dim t As String
  Dim h As Long
  Dim m As Long
  Dim s As Long
 
If InStr(1, Sek, ":") = 0 Then
  h = Fix(Sek / 3600)
  m = Fix((Sek - (h * 3600)) / 60)
  s = Fix(Sek - (h * 3600) - (m * 60))
  t = h & ":" & m & ":" & s
  DisplayTime = t
 
Else
 
'Hier den String "Sek" zerlegen (ich mache das am liebsten mit einer sehr 
' komfortablen Klasse-findest du hier im Workshop)
h = Val(cstring.LeftStr(Sek, ":", False))
m = Val(cstring.MidStr(Sek, ":", ":", False))
s = Val(cstring.RightStr(Sek, ":", False))
Sek = Val((h * 3600) + (m * 60) + s)
DisplayTime = Sek
 
End If
 
End Function