Acá tengo una función para calcular el tiempo
Function Calc_Tiempo(Tiempo1 As String, Tiempo2 As String) As String
Dim ttSegundos As Single
Dim ttMinutos As Integer
Dim ttHoras As Integer
'Saca la diferencia en segundos
ttSegundos = DateDiff("s", Tiempo1, Tiempo2)
'los traspasa a minutos enteros
ttMinutos = Int(ttSegundos / 60)
'de los minutos enteros calcula los segundos resultantes
ttSegundos = ttSegundos Mod 60
'los traspasa a horas enteros
ttHoras = Int(ttMinutos / 60)
'de las horas enteras calcula los minutos resultantes
ttMinutos = ttMinutos Mod 60
Calc_Tiempo = ttHoras & ":" & ttMinutos & ":" & ttSegundos
End Function