I've updated the VBA version and applied some suggestions from code review post.
https://codereview.stackexchange.com/q/206017/158032
- use constants for both module and procedure names
- declare
FreeFileas Integer - use ISO format
yyyymmddThhnnssfor log file - remove usage of
IsinSelect Caseexpression for error trap - update
Case Is <> 0toCase Elsefor error trap