.
Code:
Dim x As String, d,days,years,months As Integer
x = TextBox1.Text
days = DateDiff(DateInterval.Day, New Date(IIf(x.StartsWith("0"), Val("20" & Mid(x, 1, 2)), Val("19" & Mid(x, 1, 2))), Val(Mid(x, 3, 2)), Val(Mid(x, 5, 2))), New Date(2009, 1, 1))
years=math.truncate(d/365)
months=math.truncate((((d/365)-years)*365)/30)
days=math.truncate((((((d/365)-years)*365)/30)-months)*30)
MsgBox(("years:" & years.ToString)&" "&("months"&months.tostring)&" "&("Days:" & days.ToString))
End Sub

: 21 3 2