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 FreeFile as Integer
• use ISO format yyyymmddThhnnss for log file
• remove usage of Is in Select Case expression for error trap
• update Case Is <> 0 to Case Else for error trap