Dim HoraIni As Date, HoraFin As Date
HoraIni = #12:01:02#
HoraFin = #12:51:02#
MsgBox TimeSerial(0, 0, DateDiff("s", HoraIni, HoraFin))

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)