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 
yyyymmddThhnnssfor log file - remove usage of 
IsinSelect Caseexpression for error trap - update 
Case Is <> 0toCase Elsefor error trap