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

  Dim questions = New String(0 To 4) {" 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?"}
    Dim answers = New String(0 To 4) {"1918", "1914", "1945", "1957", "1926"}
    Dim answer As String
    Dim correct As Integer
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Label1.Text = 45
        Timer1.Enabled = True
 
 
        answer = InputBox("In which year" & questions(0), "Question 1")
            If answer = answers(0) Then
                correct = correct + 1
            End If
            answer = InputBox("In which year" & questions(1), "Question 2")
            If answer = answers(1) Then
                correct = correct + 1
            End If
            answer = InputBox("In which year" & questions(2), "Question 3")
            If answer = answers(2) Then
                correct = correct + 1
            End If
 
            answer = InputBox("In which year" & questions(3), "Question 4")
            If answer = answers(3) Then
                correct = correct + 1
            End If
            answer = InputBox("In which year" & questions(4), "Question 5")
            If answer = answers(4) Then
                correct = correct + 1
            End If
 
 
        If correct >= 3 Then
                MsgBox("Congrats! You did " & correct & " out of 5. You passed the test!")
 
            End If
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = Val(Label1.Text) - 1
        If Label1.Text = 0 Then
            Timer1.Enabled = False
            MsgBox("Sorry you are out of time! Please Try again!")
 
 
 
 
        End If
 
    End Sub

Dim questions = New String(0 To 4) {" 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?"}
Dim answers = New String(0 To 4) {"1918", "1914", "1945", "1957", "1926"}
Dim answer As String
Dim correct As Integer
Friend counter As integer = 5
Friend Result
Friend cgood = 0
Friend cbad = 0
 
Function getanswer(q as integer)
If InputBox("In which year" & questions(q), "Question " & q+1) = answers(q) Then
correct = correct + 1
End If
If correct >= 3 Then
Return True
Else
Return False
End If
End Function
 
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Label1.Text = 45
Timer1.Enabled = True
For i As Integer = 0 to counter - 1
Result = getanswer(i);
counternow +=1
if Result = True then
cgood +=1
else
cbad +=1
end if
Next i
 
if cgood >= 3 then
MsgBox("Congrats! You did " & cgood & " out of " & counter & ". You passed the test!")
'А тут мы должны сбросить все переменные и вернуть все так, как было при запуске программы.
End sub
end if
 
if counternow = counter then
MsgBox("Bad! You did " & cgood & " out of " & counter & ". You not passed the test!")
'А тут мы должны сбросить все переменные и вернуть все так, как было при запуске программы.
end if
 
End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = Val(Label1.Text) - 1
        If Label1.Text = 0 Then
            Timer1.Enabled = False
            MsgBox("Sorry you are out of time! Please Try again!")
'А тут мы должны сбросить все переменные и вернуть все так, как было при запуске программы.
         End If
    End Sub

Friend counter As integer = 5

Friend counter As integer = 5
Friend counternow As integer = 0

Result

Res_txt

exit for

End Sub

   Dim questions = New String(0 To 4) {" 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?"}
    Dim answers = New String(0 To 4) {"1918", "1914", "1945", "1957", "1926"}
    Dim answer As String
    Dim correct As Integer
    Friend counter As Integer = 5
    Friend counternow As Integer = 0
    Friend Res_txt
    Friend cgood = 0
    Friend cbad = 0
    Dim testval As Char
 
    Function getanswer(q As Integer)
 
        If InputBox("In which year" & questions(q), "Question " & q + 1) = answers(q) Then
            correct = correct + 1
        End If
        If correct >= 3 Then
            MsgBox("goodjob")
 
            cgood = 0
            cbad = 0
        Else
 
        End If
    End Function
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
        Label1.Text = 45
        Timer1.Enabled = True
 
        For i As Integer = 0 To counter - 1
            Res_txt = getanswer(i)
            counternow += 1
            If Res_txt = True Then
                cgood += 1
            Else
                cbad += 1
            End If
        Next i
 
        If correct < 3 Then
            MsgBox("Bad! You did " & cgood & " out of " & counter & ". You Not passed the test!")
            cgood = 0
            cbad = 0
            Me.Show()
        End If
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = Val(Label1.Text) - 1
        If Label1.Text = 0 Then
            Timer1.Enabled = False
            MsgBox("Sorry you are out of time! Please Try again!")
 
            cgood = 0
            cbad = 0
 
 
        End If
 
    End Sub

For i As Integer = 0 To counter - 1
Res_txt = getanswer(i)
'.....
Next i

End Sub