Not sure where you are putting the output at, but you can use something like
this to do what you want...

Answer = InputBox("Enter a date")
If IsDate(Answer) Then Answer = Format(Answer, "m/d/yyyy")

to convert the user's input, if a valid date, to a 4-digit year. You can
then assign Answer to wherever you want.

--
Rick (MVP - Excel)


"posheroff" wrote in message
...
I am using an input box to enter a date. I'd like the end user to only
have
to enter a 2-digit year, but have the system convert it to a 4 digit year.
How would I do that?