textbox to Cell date format issues

Hi,

I am still new at these things so can anyone help me with the issue i am havinig with a userform textbox and the format it shows dates on the excel cell. I type in as a 01/02/2008 but it comes out on the cell as 02/01/2008. below is the code I use to link textbox to the cell

Private Sub TextBox2_Change()
Dim R As Range
Dim S As String

Set R = Sheet1.Range("w4")
S = TradeHorizontal1.TextBox2.Value

R.Value = S

End Sub


End Sub

So can anyone tell me how to make the cell display the correct date?

Also I have two textbox's I want to know how I will be able to make it so that the user has to type lower date on Textbox1 and a Higher date on Textbox2, otherwise they get and error message

And they can only type in this format "dd/mm/yyyy"

If anyone can help me it would much appreciated

Thank you

Panic

Not tested but try this.

Private Sub TextBox2_Change()
Dim R As Range
'use a datevariable
Dim S As Date
Set R = Sheet1.Range("w4")
'store text as date
S = CDate(TradeHorizontal1.TextBox2.Value)
R.Value = S
End Sub

Charlize