Say input number 290906 is stored in x, then try
Range("A1").Value = DateValue(Left(x, 2) & "/" & Mid(x, 3, 2) & "/" &
Right(x, 2))
Adjust destination cell reference!
As for the other question!
Give more details!
Another question...
What is the code for VB so when information is already entered in the
spreadsheet it will notify me with a dialog box?
Regards,
Stefi