Os paso una función a la cual si le pasas la suma de dos o más campos tipo
hora, te devolverá la suma total de las horas minutos y segundos
Function TiempoTotal(intervalo As Double) As String
Dim horas As Long, minutos As Long, segundos As Long
horas = Int(CDbl(intervalo * 24))
minutos = (Int(CDbl(intervalo * 1440))) Mod 60
segundos = (Int(CDbl(intervalo * 86400))) Mod 60
TiempoTotal = Format(horas, "00") & ":" _
& Format(minutos, "00") & ":" _
& Format(segundos, "00")
End Function
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)