Extract Day, Month and Year from a text box (user input) date value

[HeyInKy]

On my userform, I have a text box ("txt2") that asks the user to enter a date. I already have an IsDate sub running that ensures the input is in any date format, and then the excel column (H, column 8) the data is transferred to is formatted as date: mm/dd/yy - so all the dates entered should be formatted the same.

What I want at the time of data transfer though is to extract (separately) the day, the month and the year from the date that the user input (it could be different than today's date). I'm thinking this might be easier to extract from the destination cell (as it is already formatted) but maybe not since that cell will be the next empty row every time the userform transmits the data??

Here is my code:

With ws3
 emptyRow = WorksheetFunction.CountA(ws3.Range("$C:$C")) +1
 .Cells(emptyRow, 8).Value = txt2.Value
 .Cells(emptyRow, 10).Value = DAY????
 .Cells(emptyRow, 11).Value = MONTH????
 .Cells(emptyRow, 12).Value = YEAR????

Thanks!

[humdingaling]

With ws3
 emptyRow = WorksheetFunction.CountA(ws3.Range("$C:$C")) +1
 .Cells(emptyRow, 8).Value = txt2.Value
 .Cells(emptyRow, 10).Value = DAY(txt2.Value)
 .Cells(emptyRow, 11).Value = MONTH(txt2.Value)
 .Cells(emptyRow, 12).Value = YEAR(txt2.Value)

is txt2.value actually in text format?
format(txt2.value, "mm/dd/yy")

[alansidman]

Try this:

 .Cells(emptyRow, 10).Value = Mid(.Cells(emptyRow, 8), 4, 2)
 .Cells(emptyRow, 11).Value = Left(.Cells(emptyRow, 8), 2)
 .Cells(emptyRow, 12).Value = Right(.Cells(emptyRow, 8), 4)

[Jakobshavn]

Make and then use a real date:

Dim D As Date
D = CDate(txt2.Value)
    .Cells(emptyRow, 8).Value = D
    .Cells(emptyRow, 10).Value = Day(D)
    .Cells(emptyRow, 11).Value = Month(D)
    .Cells(emptyRow, 12).Value = Year(D)

[HeyInKy]

I actually had what Humdingaling posted before I posted my question - but kept getting runtime 424 errors - which apparently I didn't have something exactly correct, 'cause humding's answer worked perfect on 2nd attempt.

Alansidman code worked too, but needed a bit of tweaking as it returned a "/" in 2 of the fields.

I haven't tried Jakobshavn's post yet - but it makes since to me and it appears it would work well too.

Thanks to all!!!

[alansidman]

Thanks for the feedback