My excel file is in Germany(German) format and would like to change to English(UK) format

Question

I have tried multiple codes such as this

Sub changeformat()

    Dim yrCode As String, mnthCode As String, dyCode As String
    Dim dtCode As String
    Dim nM As