VBA: Операторы цикла: запрашивать пароль, пока он не будет правильно введен

[Незнайка]

Помогите решить задачу. Нужно составить программу, которая запрашивает пароль (например, четырехзначное число) до тех пор, пока он не будет правильно введен.

[Администратор]

Макрос

Sub Procedure_1()
   
    '1. Создаём в оперативной памяти компьютера поименованную область -
        'переменную "myPassword". В неё поместим пароль.
    'String означает, что в переменной может быть только текст
        '(ещё есть, например, числа). Но числа тоже могут находиться
        'в переменной с типом данных "String", только эти числа
        'будут переводиться в текстовый вид.
    Dim myPassword As String
   
    '2. Создаём ещё переменную, которая нам понадобится.
    Dim myEnter As String
   
    '3. Помещаем в переменную "myPassword" правильный пароль.
    myPassword = "1234"
   
    'Do ... Loop - это цикл. Цикл используется,
        'чтобы делать одну и ту же команду несколько раз.
    Do
       
        '4. В переменную "myEnter" пользователь с помощью
            'инструмента "InputBox" помещает данные.
        myEnter = InputBox("Введите пароль.")
       
        'If ... Then ... End If - используется для выбора действия.
       
        'Если в переменной "myEnter" текст не совпадает
            'с текстом в переменной "myPassword".
        If myEnter <> myPassword Then
       
            '5. С помощью "MsgBox" выводим на монитор сообщение.
            MsgBox "Введён неправильный пароль.", vbExclamation
           
        'Если в переменной "myEnter" текст совпадает
            'с текстом в переменной "myPassword".
        Else
           
            '6. Выходим из цикла.
            Exit Do
       
        End If
       
    Loop

End Sub

[свернуть]

Примечание
Чтобы выйти из цикла принудительно, нажмите сочетание клавиш "Ctrl + Break".

[Незнайка]

Спасибо! Очень помогли!