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

    If Age < 21 Then
        MsgBox "Вы не можете покупать алкогольные
напитки.", , "несовершеннолетний"
    Else
        Vkus = InputBox("что Вы хотите приобрести?",
"Вкус")
    End If
    End Sub




           Рис. 6.11. Пример конструкции If Then Else


  Конструкция      If…Then…ElseIf…Else
   С помощью данной конструкции можно выбрать одно
из нескольких направлений действий. Можно использовать
любое количество строк с ElseIf в зависимости от
сложности программы.
     Синтаксис конструкции:

    If условие_1 Then
       операторы_1
    ElseIf условие_2 Then
       операторы_2
    ElseIf условие_3 Then
       операторы_3
    Else
                                                        109