Как разрешить пользователю вводить пользовательскую форму в цикле do while?

Question

Я устал подготавливать пользовательскую форму для ввода листа в каком-то состоянии и выполнения некоторой работы. Основная проблема - когда я начинаю макрос, а цикл оправдывает пробные времена, но не позволяет вводить новую строку для каждой пробы в текстовое поле.

Private Sub CommandButton1_Click()

    Dim x As String, range As range, i As Integer
    Do While i < 2
    If TextBox1.Text = "excel" And TextBox2.Text = "vba" Then
         Sheets("list").Visible = True
         Sheets("list").Select
                  Exit Do
     Else
         MsgBox "WrongPass" & vbNewLine & vbNewLine & "Remain Trial: " & 2 - i
         Sheets("liste").Visible = False
         i = i + 1
         TextBox3.Text = 2 - i
     End If
     Loop
End Sub