You will need to make sure that you change the textbox name & destination cell
ActiveCell.Value=Format(CDate(Me.TextBox1.Value,"short date"))
You might be interested in this