Как ограничить пользователя после 3 попыток ввода пароля с помощью DO.. До цикла в VB

---

Создайте программу, которая позволяет пользователю до 3 попыток ввести пароль "секретно". Если пользователь вводит пароль правильно в течение 3 попыток, отображается сообщение о том, что пароль действителен. В противном случае программа выведет сообщение о том, что пароль неверен.

ИСПОЛЬЗУЯ DO...До петли с IF..ЗАТЕМ

ЭТО ДОЛЖНО БЫТЬ СДЕЛАНО С ПОМОЩЬЮ DO.... ДО ПЕТЛИ. ПОЖАЛУЙСТА, НИКАКИХ "ЕСЛИ"..ЗАТЕМ.
УЧИТЕЛЬ ПОПРОСИЛ НАЙТИ РЕШЕНИЕ С ПОМОЩЬЮ DO.... ДО ПЕТЛИ
ЭТО ДЛЯ ШКОЛЬНОГО ЗАДАНИЯ.

Что я уже пробовал:

Я смог сделать это только через "Если".. Тогда, но я не могу сделать это с помощью DO.... ДО ПЕТЛИ.
Пожалуйста, это срочно.
Это кодировка, которую я использовал, но она работает неправильно.
Пожалуйста, дайте мне правильный ответ.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pass, word As String
        Dim num As Integer
        num = 1
        pass = "secret"
        word = TextBox1.Text
        'If word = pass Then
        '    MsgBox("VALID")
        'Else
        '    MsgBox("INVALID")
        'End If
        'num = num + 1
        'Do
        '    num = num + 1
        'Loop Until num = 3
        'MsgBox("RUN")
        Do
            If num >= 3 Then
                MsgBox("ATTEMPTS EXCEEDED")
            End If
            If word = pass And num <= 3 Then
                MsgBox("VALID")
            End If
            'Do
            '    num += 1
            'Loop Until num > 3
            'If num >= 3 Then
            '    MsgBox("ATTEMPTS EXCEEDED")
            'End If
            'If word <> pass Then
            '    MsgBox("INVALID")
            'End If
            num += 1
            If word <> pass Then
                MsgBox("INVALID")
            End If
        Loop Until num > 3
    End Sub
End Class

---