Public Function FormatSeconds1(ByVal nSeconds As Long) As String
        Dim ts As TimeSpan = TimeSpan.FromSeconds(nSeconds)
        Dim tss As String = ts.ToString()
        Return (ts.Days * 24 + ts.Hours).ToString() & ":" & tss.Substring( _
          tss.Length - 5, 5)
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist