Public Function FormatSeconds(ByVal nSeconds As Long) As String
 
        Dim stunden As String = ""
        Dim minuten As String = ""
        Dim sekunden As String = ""
 
        Dim span As String = New TimeSpan(nSeconds * 10 ^ 7).ToString()
        With span
            If Not CInt(.IndexOf(".")) = -1 Then
                stunden = .Substring(0, CInt(.IndexOf("."))) * 24 + CInt( _
                  .Substring(.IndexOf(".") + 1, 2)).ToString
            Else
                stunden = .Substring(0, 2)
            End If
 
            minuten = .Substring(CInt(.IndexOf(":") + 1), 2).ToString
            sekunden = .Substring(CInt(.LastIndexOf(":") + 1), 2).ToString
        End With
        Return stunden & ":" & minuten & ":" & sekunden
    End Function