Вычислить разницу во времени - VB

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

Написать приложение, по нажатию на кнопку с надписью <Пуск> отображает на объекте Label 1 текущее время,по нажатию на <Стоп> текущее время в следующий момент времени, и время, прошедшее между нажатием на первую и вторую кнопки. Вот код :

Option Explicit
Dim a As Timer, b As Timer, c As Integer
Private Sub Command1_Click()
Label1.Caption = Time
a = Label1: b = Label2:
End Sub
 
Private Sub Command2_Click()
Label2.Caption = Time
Label3 = c
c = a - b
End Sub

Не получается вычислить прошедшее время.

Решение задачи: «Вычислить разницу во времени»

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

                             Option Explicit
 Dim a As Date, b As Date, c As Integer
 
 Private Sub Command1_Click()
        Label1.Caption = Time
        a = Label1.Caption:
 End Sub
 
 Private Sub Command2_Click()
        Label2.Caption = Time
        b = Label2.Caption
         c = DateDiff("s", a, b)
        Label3 = c
 End Sub
                        