Excel - cálculo horas en un userform vbaexcel

Sub ObtenerDiferencia()

    ss = C - TVE - TIN - TSA

    If ss < 0 Then

       signo = "-"

       ss = ss * -1

    End If

    'Formateamos a [h]:mm:ss

    hh = ss Mod 3600

    hh = Int((ss - hh) / 3600)

    ss = ss - (hh * 3600)

    mm = ss Mod 60

    mm = Int((ss - mm) / 60)

    ss = ss - (mm * 60)

    txtResultado = signo & hh & ":" & Format(mm, "00") & ":" & Format(ss, "00")

End Sub

Sub ObtenerDiferencia()

    ss = C - TVE - TIN - TSA

    If ss < 0 Then

       signo = "-"

       ss = ss * -1

    End If

    'Formateamos a [h]:mm:ss

    hh = ss Mod 3600

    hh = (ss - hh) / 3600

    ss = ss - (hh * 3600)

    mm = ss Mod 60

    mm = (ss - mm) / 60

    ss = ss - (mm * 60)

    txtResultado = signo & Int(hh) & ":" & Format(Int(mm), "00") & ":" & Format(ss, "00")

End Sub