Visual Basic - Fecha

Hola
Necesito ingresar una fecha, compararla con la fecha de hoy y ver cuanto se ha vivido (dias, meses, semanas, años)
Si alguien sabe hacerlo q me ayude porfavor...
Gracias

Hola se me ocurre algo asi para los años

hoy = CVDate(Date)
entrada = CVDate(Text1.Text)
Años = Year(hoy) - Year(entrada)
para los dias y los meses no se :( pero espero que por lo pronto esto te sirva :)