>>Certainly looks like a lot of code :-}
>>How about:

Dim earlierDate As New DateTime(2009, 9, 15, 10, 40, 20)
>>Dim timespan As TimeSpan = DateTime.Now.Subtract(earlierDate)
>>Dim difference As New DateTime(timespan.Ticks)
>>Console.WriteLine("Years: {0} Months: {1} Days {2}", difference.Year, difference.Month, difference.Day)
>>

>
>Thanks, but Console.WriteLine() doesn't do anything in my application.
>
>Also, I tried to replace that to Message.Box() but was unable do. Basically, how can we get the equivalent into a variable?

Use String.Format to get the above into a variable.