Bueno, la forma mas simple de hacer eso es restando el año actual con el año de nacimiento:
Código:
edad = Year(Date) - Year(txtFechaNacimiento)
Ahora que si queres algo mas exacto, tendrias que verificar el mes y el dia:
Código:
If Month(Date) = Month(txtFechaNacimiento) Then
If Day(Date) >= Day(txtFechaNacimiento) Then
edad = Year(Date) - Year(txtFechaNacimiento)
Else
edad = (Year(Date) - 1) - Year(txtFechaNacimiento)
End If
End If
MsgBox edad
Saludos
