Format Text Box as "dd/mm/yyyy"

Can someone tell me what i am doing wrong on the attached example. All i want to do is click the 'show form' button then i click the little calendar icon which displays a calendar on another form. When i click the date the format of the date goes in US stlye. I would like the format to be "dd/mm/yyyy".

Thanks,
Adam.

that's how the control is written, US date format.

So you need to format the date how you want.
Also pull the selected date from the userform rather than push, that way you can use the calendar form from other controls and userforms.

userform frmInput code

Private Sub Calendar1_Click()
    frmInput.Hide
    With frmCalendar
        .Show
        With .Calendar1
            Me.TextBox1.Text = VBA.Format(DateSerial(.Year, .Month, .Day), "dd/mm/yyyy")
        End With
    End With
    frmInput.Show

End Sub

userform frmCalendar code

Private Sub Calendar1_Click()

    frmCalendar.Hide
    
End Sub