Problemer med Dato i cell - VBA

Hej
Jeg har en textbox hvor man kan indtaste en dato. Denne indtastet dato anvendes i et modul, hvor jeg omdøber den til strDate. Se nedenstående kode:

strDate = Format(CDate(udRepport.TextBox1.Value), "dd/mm/yyyy")

Mit problem er, at når jeg skal overføre datoen til en celle i Excel, da datoen skal anvendes i en række formler, så kan den godt finde på at ændre datoen. F.eks. hvis jeg skriver den 01-06-17, så bliver værdien i cellen vist som 06-01-17.

Koden der overføre datoen til cellen ser således ud:
Dim strDate As String

With Range("A2")
                .Value = strDate
                .Font.ThemeColor = xlThemeColorDark1
            End With

Hvad gør jeg forkert?

pft.