Как программно вычесть 1 время из другого? - VBA

Формулировка задачи:

Здравствуйте, есть такая задачка: Известно время вылета самолета из Минска и время прибытия его в аэропорт назначения (оба значения времени по минскому времени). Определить продолжительность рейса, если самолет прибыл в аэропорт назначения в тот же день. Накидал такой код:

Option Explicit
 
Sub Zadanie_2()
Dim Temp As Integer, Templ As Variant, Templl As Variant, Result As Variant
 
Templ = Range("B8")
Templl = Range("B7")
Result =  Templl-Templ
 
Cells(5, 5).Value = Result
End Sub

В Result получается не время, а число. В ячейках B7,B8 ввожу время, например(15:00 и 19:00) В общем не знаю как вычесть 1 время из другого. Хелп.

Решение задачи: «Как программно вычесть 1 время из другого?»

textual
                            Листинг программы 
                        

                             
Sub Zadanie_2()
    Dim n As Integer
    If IsDate(CDate(Range("B7"))) And IsDate(CDate(Range("B8"))) Then
       n = DateDiff("n", CDate(Range("B7")), CDate(Range("B8")))
       Cells(5, 5).Value = n \ 60 & ":" & n Mod 60
    Else
       Cells(5, 5).Value = ""
       MsgBox "Invalid date !"
    End If
End Sub
                        