Электронные таблицы. Салмин А.А. - 103 стр.

   6.4.3. Совместное использование функций MsgBox и
InputBox
   На практике для создания процедур функции MsgBox и
InputBox используются совместно. Кроме того, в
дополнение к ним может использоваться условный
оператор If, который позволяет проверять введенные
пользователем условия и на основе его выводов выдавать
результат.
   Условный оператор If - это оператор позволяющий
задавать выполнение тех или иных действий в зависимости
от заданных условий. Основными составляющими для
этого служат:
   1) if (если)
   2) then (тогда)
   3) else (иначе)
   Так выражение - если a>1 то b= a+1 иначе b=a-1 будет
иметь вид
   If a>1 then b= a+1 else b=a-1.

  Пример процедуры 3:
  Компьютер должен перемножить два числа, результат
вывести в одну из ячеек таблицы. Если их произведение
больше    2000,   то    компьютер    должен    выдать
дополнительное сообщение "Полученное значение больше
2000".

   Sub пример_2()
   Dim a, b, y As Long
   a = InputBox("первое число")
   b = InputBox("второе число")
   Range("A1") = a
   Range("A2") = b
   y=a*b
   Range("A4") = y

                                                    103