Date issue when converting seperators

Hi all, I have a download which stores dates in the format as follows 04.01.2017.

To convert them to an actual date I use a piece of code below

  Columns("A:A").Select
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

However, when I do this, it stores the date as 01/04/2017. I am sure this is an easy fix / add in to the code that has been asked before but I can't find the solution.

Can someone assist please?

TIA