Sub test()
MsgBox Format(CStr("04/05/2020"), "m/d/yyyy")
MsgBox Format(CStr("12/05/2020"), "m/d/yyyy")
MsgBox Format(CStr("13/05/2020"), "m/d/yyyy")
MsgBox Format(CStr("04/05/2020"), "dd/mm/yyyy")
MsgBox Format(CStr("12/05/2020"), "dd/mm/yyyy")
MsgBox Format(CStr("13/05/2020"), "dd/mm/yyyy")
End Sub