Sacar en año, mes y dia la diferencia entre fechas

[E N T E R]

Tengo este codigo que arme pero no se si lo correcto. Quiero que muestre cuando ha pasado desde una fecha hasta la otra.

Código: (VB) [Seleccionar]

Private Sub Timer1_Timer()
   
    Label1.Caption = "Año: " & DateDiff("yyyy", "18/03/1979", Date)
    Label2.Caption = "Mes: " & DateDiff("m", "01/01/" & Format(Date, "yyyy"), Date)
    Label3.Caption = "Dias: " & Format(Date, "d")

End Sub