dim date as number 'The original date
dim strDate as string 'The new look
'First we "filter out" the day
date = date / 100 'date now looks like 200406.17
day = 100 * (date - int(date) ) 'Get the decimal part as the day
date = date - (day / 100 ) 'Remove the decimal part from the date, so you have 200406
'Now filter out the month
date = date / 100 'date now looks like 2004.06
month = 100 * (date - int(date) ) 'Get the decimal part as the month
date = date - ( month / 100 )
'Now only the year is left in date
'Concatinate the elements into a date string
strDate = ToText(month, 0) & "/"
strDate = strDate & ToText(day, 0) & "/"
strDate = strDate & ToText(date)
'Return the date string
Formula = strDate
I didn't test this, but I think it should work. Good luck.