Password Manager中的错误处理程序停止来自Functioning的按钮

Question

在我的Visual Basic密码管理器应用程序中，我可以选择生成一个随机的8个字符串长度的整数。哪个工作正常。

另一个选项是让用户将Inputbox（）每个2位整数分成4个单独的变量，然后将它们作为变量加在一起＆＃34;最终输入＆＃34;

这一切都正常，直到我开始在错误处理程序中编程，让用户只输入2个字符长的NUMERIC值。这导致了我的＆＃34;手动输入＆＃34;选项按钮不激活输入框以开始接收数字。

非常感谢任何有关代码的帮助

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim number1 As Integer = 0
    Dim number2 As Integer = 0
    Dim number3 As Integer = 0
    Dim number4 As Integer = 0
    Dim finalinput As String
    Dim finalgenerated As New Random
    Dim rn1 As New Random
    Dim rn2 As New Random
    Dim rn3 As New Random
    Dim rn4 As New Random
    'asks for sections of final number

    While TextBox1.Text.Length <> 2 And IsNumeric(TextBox1.Text) = True
        TextBox1.Text = InputBox("Please enter first 2 integer number")
        number1 = TextBox1.Text
        MsgBox("number 1 added")
    End While

    While TextBox2.Text.Length <> 2 And IsNumeric(TextBox2.Text) = True
        TextBox2.Text = InputBox("Please enter second 2 integer number")
        number2 = TextBox2.Text
        MsgBox("number 2 added")
    End While

    While TextBox3.Text.Length <> 2 And IsNumeric(TextBox3.Text) = True
        TextBox3.Text = InputBox("Please enter third 2 integer number")
        number3 = TextBox3.Text
        MsgBox("number 3 added")
    End While

    While TextBox4.Text.Length <> 2 And IsNumeric(TextBox4.Text) = True
        TextBox4.Text = InputBox("Please enter fourth 2 integer number")
        number4 = TextBox4.Text
        MsgBox("number 4 added")
    End While
    finalinput = CStr(number1) + CStr(number2) + CStr(number3) + CStr(number4)
    savedcode = finalinput