I am guessing a bit as I don't have US settings, but can you use

Temp(n, 1).Text = DateValue(Temp(1, 1).Text)