Problem with textbox using date format.

[Skip Bisconer]

I have a multipage form to enter maintenance data onto a spreadsheet and I am having a problem getting the correct results from a textbox with a date mm/dd/yy to enter into a cell. The result I am getting in Cells(NextRow, 1) for the date 12/27/03 is "27ate". For 01/04/04 is "4ate".
I have tried dropping the format line and just formatting the column in the speadsheet and that doesn't make any difference. There are no other references to Cells(NextRow, 1) in my VBA for this page.
I am baffled. Any help out there?

Sheets("Dodge").Activate

NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1

' Apply user entry to form to Dodge worksheet

Cells(NextRow, 1) = txtDateD
Cells(NextRow, 1) = Format(Cells(NextRow, 1), "Date")

 

[Ivan F Moala]

Hi Skip

Cells(NextRow, 1) = Format(Cells(NextRow, 1), "Date")

should be

Cells(NextRow, 1) = Format(Cells(NextRow, 1), "DD/MM/YYYY")

Lookup Format in the Help files

Your Org formula is Readind "Date" as Day + "ate" hence the 4ate

 

[Skip Bisconer]

Thanks Ivan, I knew it had to be simple.