How i prepare a Textbox for date input?

[pcfry]

How i prepare a Textbox for date input?
I try using the format function:

Me.txtFechadeEntrada.MaxLength = 8
mascarafechaentrada = Format(Me.txtFechadeEntrada.Text, "##/##/##")

And on saveclick this ,I need save the data to a text file with a specific format I delete the /.

mascarafechaentrada = Format(Me.txtFechadeEntrada.Text, "######")
Me.txtFechadeEntrada.MaxLength = 6

But don't work because the user can type this 11112//2.

My last choice is to use date picker control or textbox=format (Date,yy/mm/dd).
But I prefer the user to type the date in the text box.
Sorry for my English
Any help is very appreciated