List 6-34　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： End Enum