Thanks Dave (as usual) -- I tried your code, but didn't work. I've since
modified to:

Private Sub TextBox19_AfterUpdate()
MyBDate = CDate(TextBox19)
UserForm1.TextBox20 = Application.WorksheetFunction.DateDif(MyBDate,
Date, "y")
End Sub

But still getting r/t error 438 - Object doesn't support this prop or meth
On line
UserForm1.TextBox20 = Application.WorksheetFunction.DateDif(MyBDate, Date,
"y")



What to do (wringing hands here)...


"Dave Peterson" wrote:

Private Sub TextBox19_AfterUpdate()
if isdate(me.textbox19.text) then
me.TextBox20.Text = Application.WorksheetFunction. _
DateDif(Format(DateValue(me.TextBox19.Text), "mm/dd/yyyy"), Date, "y")
end if
End Sub

(Untested, uncompiled!)


JMay wrote:

After entering say 11/27/44 in my TextBox 19 I want Textbox20 to display 63,
but it is not working

Anyone see why?

Private Sub TextBox19_AfterUpdate()
UserForm1.TextBox20.Text = Application.WorksheetFunction. _
DateDif(Format(DateValue(TextBox19.Text), "mm/dd/yyyy"), Date, "y")
End Sub

TIA,

--

Dave Peterson