VB program to dispaly age from birth date

Design Window:-

Code:

Private Sub cmdClear_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text1.SetFocus
End Sub

Private Sub cmdDisplay_Click()
    Dim b As Date
    Dim d As Date
    Dim age As Date
    b = Text1.Text
    d = Format$(Now, "dd/mm/yyyy hh:mm:ss ")
    age = Format$(d - b, "dd/mm/yyyy hh:mm:ss")
   
    Text2.Text = Year(age)
    Text3.Text = Month(age)
    Text4.Text = Day(age)
    Text5.Text = Hour(age)
    Text6.Text = Minute(age)
    Text7.Text = Second(age)
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub
===================================================
OUTPUT