Sub cmdReg_Click()
'N * ref: __vbaExceptHandler
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaHresultCheckObj
'N * ref: Trim(
'N * ref: __vbaVarTstEq
'N * ref: __vbaFreeObj
'N * ref: __vbaFreeVarList
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaVarDup