List 6-9　BusinessError列挙型

  1： Public Enum BusinessError
  2：     ' エラーの列挙型
  3：     Err_NOSECURE = vbObjectError + 513 + 10000 + 1   ' セキュリティ機能が無効
  4：     Err_CANTACCESS = vbObjectError + 513 + 10000 + 2  ' アクセスする権限がない
  5： End Enum