that in the end you have tons of variables listed.
Make life simpler and your code easier to read and group your variables into
meaning full groups and put them in to the Declarations section.
Title as string
NumOfPages as integer
dim MyBook1 as Book
MyBook1.Title = "Title"
MyBook1.NumOfPages = 100