Date picker

Tengo mi date picker que pone la fecha en la celda, pero me pone en formato fecha, y no se por que ?, le he puesto ala celda formato fecha y no sale , sale en hora,
Hoja1.Cells(x, 4).Value = Me.DTPicker1.Value
con ese codigo hago que el valor de la fecha la ponga en la celda ...pero no se puede ,,alguien ayudeme por favor, le estaria muy agradecido