Количество молекул воздуха в помещении

[Cular]

Ребята, такая задача: Разработать проект VBA MS Excel для расчета числа молекул воздуха в комнате, если так называемое число Пошлидта равное 2,6868*10 (в 25-ой степени метра кубического) - число молекул в одном кубическом метре воздуха при нормальных условиях. Проект должен содержать форму, в которой расположены поля для ввода линейных размеров комнаты, в метрах с точностью 0,01 м и поле для отображения результатов счета.


Проблема: не знаю, как правельно считать числа с текстбокса в переменную!
Вот все, насколько меня хватило....

Dim Dli As Double
Dim Vus As Double
Dim Shur As Double
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Private Sub CommandButton1_Click()
UserForm1.TextBox1.Text = Vus
UserForm1.TextBox2.Text = Dli
UserForm1.TextBox3.Text = Shur
UserForm1.Label5.Caption = 2 * (Dli * Vus + Dli * Shur + Vus * Shur) *2.6868
End Sub

[nilem]

Так, видимо:
Private Sub CommandButton1_Click()
Vus = CDbl(UserForm1.TextBox1.Text)
Dli= CDbl(UserForm1.TextBox2.Text)
Shur= CDbl(UserForm1.TextBox3.Text)
UserForm1.Label5.Caption = 2 * (Dli * Vus + Dli * Shur + Vus * Shur) *2.6868
End Sub

[Cular]

Огромное спасибо!

[maksim_serg]

2 * (Dli * Vus + Dli * Shur + Vus * Shur)
End Sub

Это что? Площадь полной поверхности параллелепипеда?

Мне казалась, что для этого нужно умножить кол-во молекул в одном метре кубическом на ОБЬЕМ помещения...

[Cular]

то есть нужно произведение площади основания умножить на высоту, ну и умножить на число молекул в 1-м кубическом метре?!
Я не очень в геометрии =(
И ещё такой вопрос, можно ли сделать вывод числа в степени, и как?

[maksim_serg]

совершенно верно, перемножить между собой три смежных ребра помещения и умножить на число молекул в метре кубическом. А дальше при необходимости с помощью изотермы и изобары определить число молекул газа (в данном случае смеси газов- воздуха) для конкретных условий в замкнутом помещении. Ведь стоит нам изменить температуры (или давление) хотя бы на на одну сотую градуса и число молекул в кубе тоже измениться...и не в геометрии дело, а в физике

[Cular]

Можно ли сделать вывод числа в степени на лейбл, и как?

[Cular]

Можно ли сделать вывод числа в степени на лейбл, и как?