visual basic исходник почему не запускается

Какое сообщение выдает вместо запуска? Если пишет что-то типа "Ошибка номер такой-то", то найди в хелпе эту ошибку и посмотри, что она значит.
Имена переменных по русски - это нормально? Попробуй перейти на английские.
Попробуй запустить пошаговое выполнение. На какой команде он споткнется?
Еще попробуй поменять тип рез_п_дома с Integer на Long. Integer ограничен 32767, возможно, что произведение получается больше.
И еще. Я плохо помню, но возможно, что конструкцию типа ширина_б. InputBox надо писать несколько по-другому. Например, ширина_б. InputBox.Text или ширина_б. InputBox.Value. Посмотри в свойствах InputBox, в каком поле пишется текст, который ты видишь на экране.

на англ напиши переменные или вообще без них мона,
на форме 4 ТекстБокса 2 кнопки 1 Label

Private Sub Text1_Validate(Cancel As Boolean)
If Not IsNumeric(Text1) Then MsgBox "Вводимые данные должны быть числом"
End Sub

Private Sub Text2_Validate(Cancel As Boolean)
If Not IsNumeric(Text2) Then MsgBox "Вводимые данные должны быть числом"
End Sub

Private Sub Text3_Validate(Cancel As Boolean)
If Not IsNumeric(Text3) Then MsgBox "Вводимые данные должны быть числом"
End Sub

Private Sub Text4_Validate(Cancel As Boolean)
If Not IsNumeric(Text4) Then MsgBox "Вводимые данные должны быть числом"
End Sub

Private Sub Command1_Click()
'размер дома
Label1.Caption=Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command2_Click()
'размер двора
Label1.Caption=Val(Text3.Text) * Val(Text4.Text)

End Sub