Жесткий диск пуст и имеет объем свободного простаранства Г гигабайт - VB

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

Жесткий диск пуст и имеет объем свободного простаранства Г гигабайт. Разработайте приложение, вычисляющее: 1) Сколько книг, каждая из которых состоит из Л страниц, на каждой странице С строк, в каждой строке Б символов, можно записать на такой жесткий диск? 2) Если учесть, что каждая такая книга 3 см толщиной, то какой высоты в метрах будет стопка, если все их сложить друг на друга?

Решение задачи: «Жесткий диск пуст и имеет объем свободного простаранства Г гигабайт»

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

                            Private Sub Form_Load()
    Dim Size As Currency
    Dim NumOfPages As Long
    Dim NumOfLines As Long
    Dim NumOfSymbols As Long
    Dim NumOfBooks As Long
    Dim Height As Single
    Dim SizeSymbol As Long
    SizeSymbol = 1 ' Размер одного символа в байтах
    Size = InputBox("Размер жесткого диска (байт)", , "1000000000")
    NumOfPages = InputBox("Количество страниц в книге", , "500")
    NumOfLines = InputBox("Количество строк на странице", , "60")
    NumOfSymbols = InputBox("Количество символов в строке", , "60")
    NumOfBooks = Int(Size / (NumOfSymbols * NumOfLines * NumOfPages * SizeSymbol))
    Height = (NumOfBooks * 3) / 100
    MsgBox "Количество книг = " & NumOfBooks & vbNewLine & "Высота стопки = " & Height & " м."
End Sub
                        