user form initialising with US date not UK

[grapevine]

I have the following code which is bring up todays date, but is shows 11/03/2017 for today instead of 03/11/2017. My code so far is shown below but i still cannot get it to display in UK format. Can anyone tell me where i am going wrong
Many thanks

Private Sub UserForm_Initialize()
'default values for user form
With txtDate
        .Text = "dd/mm/yyyy"
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
Me.txtDate = Date
txtDate.Value = Format(CDate(txtDate), "dd/mm/yyyy")

 

[NARAYANK991]

Hi ,

Replace the last two lines of code with this one :

Me.txtDate.Value = Format(Date, "dd/mm/yyyy")

 

[grapevine]

What a star! Worked perfectly, thank you.

 

[Aviles]

Hello,

I didn't want to start a new thread so I'm hoping someone can help me with this similar issue.

I'm using the below code to set a "To" and "From" date range in a UserForm. The dates in that range are in "dd/mm/yyyy" format, but the textbox keeps on displaying them in "mm/dd/yyyy" format for some reason.

Is there a way to fix this?

Thanks.

Private Sub UserForm_Activate()

    txtFrom.Value = Sheets("RestCalc").Range("W1").Value
    txtTo.Value = Sheets("RestCalc").Range("Y1").Value
    
End Sub

 

[Fluff]

Have you actually tried what was shown in post#2?

 

[Aviles]

Have you actually tried what was shown in post#2?

I did try it but I must have entered something incorrectly the first time.
Tried it again and it works now.
Thanks.

 

[Fluff]

Glad it's sorted & thanks for the feedback