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