Visual Basic: TimeDiff

Para quem programa em Visual Basic 6, sabe que o VB tem a função DateDiff para verificar a diferença entre datas.
Utilizando este mesmo raciocínio, encontrei a função abaixo para diferenciar tempo.

Private Function TimeDiff(strTimeInicial As String, strTimeFinal As String) As String
    Dim hora As Long    Dim minuto As Long    Dim segundo As Long
    segundo = DateDiff("s", strTimeInicial, strTimeFinal)    hora = Int(segundo / 3600)    segundo = segundo - (hora * 3600)    minuto = Int(segundo / 60)    segundo = segundo - (minuto * 60)    TimeDiff = Format(hora, "00") & ":" & Format(minuto, "00") & ":" & Format(segundo, "00")
End Function