The code you use enters something into an Excel cell. Excel recognizes that it is a date and will display the date according to the default settings.
To display a date with your preferred format, you need to format the cell that displays the date, not the data entry string.
ActiveSheet.Cells(1, 2) = Date
ActiveSheet.Cells(1, 2).NumberFormat = "mm/dd/yyyy"
source
share