List 6-111　変更したBusinessError列挙型（赤色部分が変更した箇所）

  1： Public Enum BusinessError
  2：     ' エラーの列挙型
  3：     ERR_NOSECURE = vbObjectError + 513 + 10000 + 1   ' セキュリティ機能が無効
  4：     ERR_CANTACCESS = vbObjectError + 513 + 10000 + 2  ' アクセスする権限がない
  5：     ERR_CANTDELETE = vbObjectError + 513 + 10000 + 3    ' 削除できない
  6：     ERR_CANTUPDATE = vbObjectError + 513 + 10000 + 4    ' 更新できない
  7： End Enum