Привести пример структуры данных для описания личного дела сотрудника организации.

) Привести пример структур данных для описания содержимого портфеля школьника.
Private Enum PenColor 'Цвет ручки, перечислимый тип данных
blue
black
red
green
End Enum
 
Private Type Pen 'Запись хранит сведения о характеристиках ручки
Pasta As Boolean 'True если паста есть
Cvet As PenColor 'Цвет ручки
End Type
 
Private Type Penal 'Запись хранит сведения о содержимом пенала
Ruchki(0 To 4) As Pen 'Массив ручек
Karandash As Integer 'Количество карандашей
Lineika As Boolean 'True если есть линейка
Rezinka As Boolean 'True если есть резинка
Tochilka As Boolean 'True если есть точилка
End Type
 
Private Type Book 'Запись хранит данные о книге
BookName As String  'Название
Tema As String  'Тематика/предмет
Author As String 'Автор книги
YearIzdan As Integer 'Дата издания
Izdatel As String 'Издательство
End Type
 
Private Type Tetrad 'Запись хранит данные о тетради
Vklet As Boolean 'True если в клеточку
Predmet As String 'Предмет
Sheets As Integer 'К-во листов
End Type
 
Private Type Portfel 'Запись хранит данные о содержимом портфеля
Uchebnik(0 To 5) As Book 'Массив учебников
CopyBook(0 To 10) As Tetrad 'Массив тетрадей
SchoolPenal As Penal 'Пенал, является записью
End Type