Создать тип "Book" и в нём сделать пункты "автор" и "количество страниц" - VB

Формулировка задачи:

нужна задача на наследование, т. е. создать родителя и наследника. создать тип Book (родитель) и в нём сделать пункты автор и кол-во страниц (имя автора и кол-во страниц вводится через инпутбокс) и сделать насленкика Book1 с пунктами автор, кол-во страниц и жанр книги, это тоже надо вводить в инпутбокс

вот чтото типо того мне надо, и чтобы всё данные я мог вводить через инпутбокс

Type Book
Name As String
Author As String
Page As Integer
End Type

BookOne As Book
BookOne.Name = "Бегущая по волнам"
BookOne.Author = "А. Грин"
BookOne.Page = 100

Решение задачи: «Создать тип "Book" и в нём сделать пункты "автор" и "количество страниц"»

textual
                            Листинг программы 
                        

                            Private Type Book
    Name As String
    Author As String
    Page As Integer
End Type
Private Sub Command1_Click()
    Dim BookOne As Book
    BookOne.Name = InputBox("Введите название")
    BookOne.Author = InputBox("Введите автора")
    BookOne.Page = CInt(InputBox("Введите кол-во страниц"))
End Sub
                        