Date picker on userform

I've installed the reference and made a small userform with the datepicker on it.

Ive got a text box, next to the text box I've got a command button with.

Private Sub CommandButton1_Click()
frmCalendar.Show
txtCalcSDate.Value = frmCalendar.Calendar1.Value
End Sub

So it loads up the form, I hit a date it will only accecpt current date not one I click? also it's in the wrong format, how would I get the click to set it to English format? in the text box.

any help appreciated
Thanks