SoloCodigo

aquí tienes un ejemplo:

    Dim HoraIni As Date
    Dim HoraFin As Date
   
    HoraIni = #12:00:00 AM#
    HoraIni = #12:00:00 PM#
   
    MsgBox "Diferencia en Horas -> " & DateDiff("h", HoraFin, HoraIni)
    MsgBox "Diferencia en Minutos -> " & DateDiff("n", HoraFin, HoraIni)
    MsgBox "Diferencia en Segundos -> " & DateDiff("s", HoraFin, HoraIni)

espero que te sirva, un saludo.