use DATE(year,month,day)

first, make it easy on yourslef and make sure all your data is 6 characters
long, with leading zeros.
ColumnB = Text(ImportedDataColumn,"000000")

MyDate = DATE(Right(ColumnB,2), Left(ColumnB,2),Mid(ColumnB,3,2))

HTH,
--
George Nicholson

Remove 'Junk' from return address.


"Lannutslp" wrote in message
...
I downloaded a database from an AS/400 and now I need to change numbers to
dates. When I format it changes everything because it is reading the
number
as a julian date.