Завершить прохождение теста при трех неверных ответах

Public Class Form1
    Private questions() As String
    Private answers() As String
    Private qq As String
    Private Sub Form7_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        questions = {" Estonia got independent first time?", " The First World war started", _
                     " The Second World War Ended?", " European Union was created?", _
                     "The  Queen of the Great Britain, Elizabeth II was born?"}
        answers = {"1918", "1914", "1945", "1957", "1926"}
        Timer1.Interval = 1000
        Label1.Text = ""
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim n As Integer = questions.Length
        Dim answer As String = ""
        Dim correct As Integer = 0
        Label1.Text = 45
        Timer1.Enabled = True
        Timer1.Start()
        For i = 0 To n - 1
            If Not Timer1.Enabled Then Exit Sub
            qq = "Question " & (i + 1).ToString
            answer = InputBox("In which year" & questions(i), qq)
            If answer.Length = 0 Then Exit Sub
            If answer = answers(i) Then correct += 1
            If correct = 3 Then
                MsgBox("Congrats! You did " & correct & " out of 5. You passed the test!")
                Exit For
            End If
        Next
        Timer1.Stop()
        Timer1.Enabled = False
        If correct < 3 Then MsgBox("Incorrect!")
    End Sub
    Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Private Declare Auto Function SendMessage Lib "user32" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    Const WM_CLOSE = &H10
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Dim v As Integer = CInt(Label1.Text)
        Label1.Text = (v - 1).ToString
        If v - 1 = 0 Then
            Timer1.Stop()
            Timer1.Enabled = False
            Dim wWnd As IntPtr = FindWindow(vbNullString, qq)
            If wWnd <> 0 Then
                SendMessage(wWnd, WM_CLOSE, 0, 0)
            End If
            MsgBox("Sorry you are out of time! Please Try again!")
        End If
    End Sub
End Class