Option Explicit Sub TimeDif() Dim dtDateTime1 As Date Dim dtDateTime2 As Date dtDateTime1 = #5/6/1981 7:01:05 PM# dtDateTime2 = #5/6/1981 4:01:05 PM# msgbox Format(dtDateTime1 - dtDateTime2, "hh:mm:ss") End Sub