How do i disable from seeing the time when i use this:

Dim CurrentDate As Date
.
.
.CurrentDate = Now
txtDate.Text = CurrentDate




cuz I ONLY WANT THE DATE NOT THE TIME....
CurrentDate= Date .........is not an option...