Função que retorna tempo no formato dd:hh:mm com uma entrada em segundos

Boa tarde galera! acabei de fazer uma funçãozinha bacana que surgiu aqui no trabalho, dei uma procurada aqui no forum e
não achei... por isso estou mandando!

Se você tiver um tempo em segundos e quiser transformá-lo no formato dd:hh:mm , ai está!

Function retornaHorario(ByVal tempoEmSegundos As Decimal) As String
Dim _numeroQualquer As Decimal = tempoEmSegundos
Dim _numeroHoras As Decimal = 0
Dim _numeroMinutos As Decimal = 0
Dim _numeroSegundos As Decimal = 0

_numeroHoras = ((_numeroQualquer / 60) \ 60)

_numeroMinutos = ((_numeroQualquer - (_numeroHoras * 60 * 60)) \ 60)

_numeroSegundos = _numeroQualquer - (_numeroHoras * 60 * 60) - (_numeroMinutos * 60)
Return String.Format("::", _numeroHoras.ToString("00"), _numeroMinutos.ToString("00"), _numeroSegundos.ToString("00"))
End Function



Abraços!!