@Magic_Doctor

What is the purpose of the project?

Setting the formats to use the computer's locale and the WS and VBA functions lets Windows do all the heavy lifting.

Has the advantage that if workbook is used in a different region the formulas and display are automatically updated

FormatDateTime(Date, [ NamedFormat ])

vbGeneralDate 0 Display a date and/or time. If there is a date part, display it as a short date. If there is a time part, display it as a long time. If present, both parts are displayed.
vbLongDate 1 Display a date by using the long date format specified in your computer's regional settings.
vbShortDate 2 Display a date by using the short date format specified in your computer's regional settings.
vbLongTime 3 Display a time by using the time format specified in your computer's regional settings.
vbShortTime 4 Display a time by using the 24-hour format (hh:mm).