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