VS 02/03 - Calculating Date Differences In Time Period

I know about DateDiff and TimeSpan. I am doing a project. I save a date in the registry. Now, I have to test this date against today's date and calculate the differences in minutes, hours, days, months, weeks and years.

I save the date in the registry like this:
Application.UserAppDataRegistry.SetValue("Date", [Date])

I then made a sub to calculate the differences:
Private Sub Calculate()
Try
Dim DateGen As Date
DateGen = CType([Date], Date)
Select Case TimePeriod
[Code] .....

As you can see, based on the difference between these dates ( today's date and the registry date ), a sub gets called and the program continues. Unfortunately, the minutes and hours never calls the RandomAlpha sub. How can I calculate the difference in minutes, hours etc.????