Visual Basic - formula

tengo 2 text box enb un form uno se de se lamma txtedad y otro txtnac uno de la edad y otro de la fecha de nacimiento de un paciente de un centro hospitalario, necesito hacer algo para que al digitar la fecha en el txtfecha me salga de una vez la edad en el txt edad, necesito saber de que manera hago eso....
les agradezco de antemano su colaboracion

prueba con la funcion datediff, esta te devuelve la diferencia de tiempo que existe entre dos fechas, el resultado lo devuelve en años, meses, semanas, dias segun como lo necesites, en la ayuda ahi mas informacion util sobre la funcion.

espero te sirva
suerte

Probá con este código

Private Sub Text1_Change()
If IsDate(Text1.Text) Then
Dim edad As Single
edad = CDec((Date - CDate(Text1.Text)) / 365.2475)
If Int(edad) > edad Then
edad = Int(edad) - 1
Else
edad = Int(edad)
End If
Text2.Text = edad
End If
End Sub
Suerte

Puedes poner un mskedit, ejemplo
Private Sub MaskEdBox_Change()
If IsDate(MaskEdBox) Then
Calcula
End If
End Sub

Sub Calcula()
Dim Años
Años = Year(Now) - Year(MaskEdBox)
If Month(Now) = Month(MaskEdBox) Then 'Si son iguales
'Verificar los Dias
If Day(Now) >= Day(MaskEdBox) Then
MsgBox "Tiene Usted: " & CStr(Años), vbInformation, "Miguel Angel"
Else
Años = Años - 1
MsgBox "Tiene Usted: " & CStr(Años), vbInformation, "Miguel Angel"
End If
ElseIf Month(Now) > Month(MaskEdBox) Then
MsgBox "Tiene Usted: " & CStr(Años), vbInformation, "Miguel Angel"
Else
Años = Años - 1
MsgBox "Tiene Usted: " & CStr(Años), vbInformation, "Miguel Angel"
End If
End Sub

Te paso este ejemplo a tu correo...saludos!!!!