Trabajar con tiempos

[fersomont]

Buenas, necesito ayuda, tengo que realizar una aplicación que realice sumas y restas de tiempos, por ejemplo

primer tiempo 00:25:00
segundo tiempo 01:50:00
tercer tiempo 03:30:00

Necesito sacar la diferencia de tiempo entre el segundo y el primero (Diferencia 1)
Necesito sacar la diferencia de tiempo entre el tercero y el segundo (Diferencia 2)

Por último sumar el primer tiempo + Diferencia 1 + Diferencia 2

[culd]

Código:

Dim Hora1 As Variant
Dim Hora2 As Variant
Dim Hora3 As Variant
Dim Diferencia1 As Variant
Dim Diferencia2 As Variant
Dim Suma As Variant

Hora1 = "00:25:00"
Hora2 = "01:50:00"
Hora3 = "03:30:00"


Diferencia1 = Format(TimeValue(Hora2) - TimeValue(Hora1), "hh:mm:ss")
Diferencia2 = Format(TimeValue(Hora3) - TimeValue(Hora2), "hh:mm:ss")

Suma = Format(TimeValue(Diferencia1) + TimeValue(Diferencia2), "hh:mm:ss")

MsgBox "DIFERENCIA 01: " & Diferencia1 & vbNewLine & "DIFERENCIA 01: " & Diferencia2 & vbNewLine & "SUMA DE DIFERENCIAS: " & Suma

[fersomont]

Muchas Gracias por tu ayuda me sirvio Demasiado