use the change or afterupdate event of the textbo
and do this:

dim MyDate as Varian
MyDate = Me.Textbox_Nam
if isdate(MyDate) the
Me.Textbox_Name.text = format( MyDate,"mm/dd/yy"
end i

----- Tim wrote: ----

I have a text box in a user form that has the user put in a date. I want the text box to change the format mm/dd/yyyy in the text box if the user puts the date in like this 41304 when they tab or click to the next textbox it would format the date to this 04/13/04. I am not sure how to do this. Help would be greatly appreciated

Thanks