Visual Basic - Funcion para saber la edad

Hola como estan lo que me gustaria saber si existe alguna forma o funcion para hacer esto:
pongo una fecha en un text y cuando haga click en un boton aparezca en un msgbox la edad que debe tener esa persona en ese momento????

Prueba esto:

Private Sub Command1_Click()
If IsDate(Text1.Text) Then
MsgBox "Han pasado " & CStr(DateDiff("yyyy", CDate(Text1.Text), Date)) & " años desde " & Text1.Text
Else
MsgBox "La fecha especificada no tiene un formato reconocible"
End If
End Sub

Mira, te dire un truquito (supongo que de otros muchos)

Alguien que nazca el 12/05/1981
Y el dia actual es el 05/10/2003

Pues si pones 20030510 - 19811205, y del resultado recoges los 2 primeros digitos, te sale la edad en ese dia.