Applied some suggestions from code review post.

https://codereview.stackexchange.com/q/206017/158032

• use constants for both module and procedure names
• 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