Visual Basic - calculo de fechas

hola! alguien sabe alguna rutina sencilla para calcular la edad de una persona a partir de una fecha dada y la fecha del sistema??
lo hice restando los anios pero no me da exacto, ya que si cumple en diciembre me calcula el anio y no el mes, por lo tanto si cumple en diciembre, en enero me dice que tiene un anio mas.

muchas gracias
Mariel

Prueba con la siguiente función:

Public Function Edad(ByVal FechaNac As Date) As Integer
Dim Annos As Integer
Dim Meses As Integer

Edad = Year(Date) - Year(FechaNac)
Meses = Month(Date) - Month(FechaNac)

If Meses < 0 Then
Edad = Edad - 1
ElseIf Meses = 0 Then
If Day(Date) - Day(FechaNac) < 0 Then
Edad = Edad - 1
End If
End If

End Function

Prueba la funcion DateDiff.