When writing an array of values to a range, how do I prevent excel from ignoring local date time formats

Question

I have found many similar questions but never a solution that doesn\'t include brute force re-engineering.

Using this simple subroutine:

Sub readwrite(