Perhaps something like this:

For a date in A1

B1: =TEXT(A1,"mmddyy")

You might also be able to just use a custom number format

Select A1
<format<cells<number tab
Category: Custom
Type: mmddyy
Click the [OK] button

Is that something you can work with?
***********
Regards,
Ron

XL2002, WinXP


"Who I Am" wrote:

I need a formula or a VBA code to extract a date into a string. Could
you shed a light?

Thanks in advance.