Dim x As Integer
Sub Main
 x = 123
 MsgBox( "X = " + x, , "Сообщение №1")
 MsgBox( "X = " + x, 1, "Сообщение №2")
 MsgBox( "X = " + x, 2, "Сообщение №3")
 MsgBox( "X = " + x, 3, "Сообщение №4")
 MsgBox( "X = " + x, 4, "Сообщение №5")
End Sub

Sub Mac1
y = Val(InputBox("Введите длину"))
u = Val(InputBox("Введите ширину"))
s = y*u
p = y * 2 + u * 2
MsgBox("S = " + s, 1, "Площадь")
MsgBox("P = " + p, 1, "Периметр")
End Sub

     

Sub Mac2
y = val(InputBox("Введите ребро"))
sk = y*y*6
vk = y*y*y
MsgBox("Sk = " + sk, 1,"Площадь поверхности")
MsgBox("Vk = " +vk, 1,"Объем куба")
End Sub