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

Exit For

 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
 
 
    Function getanswer(q As Integer)
 
        If InputBox("In which year" & questions(q), "Question " & q + 1) = answers(q) Then
            correct = correct + 1
            cgood = cgood + 1
        Else
            cbad = cbad + 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
            Res_txt = getanswer(i)
            counternow += 1
            If correct = 3 Then Exit For
        Next
 
        If cgood = 3 Then
            MsgBox("Congrats! You did " & cgood & " out of " & counter & ". You passed the test!")
            correct = 0
            counter = 5
            counternow = 0
            cbad = 0
            Timer1.Enabled = 0
            Label1.Text = 0
            cgood = 0
        End If
 
        If counternow = counter Then
            MsgBox("Bad! You did " & cgood & " out of " & counter & ". You not passed the test!")
            correct = 0
            counter = 5
            counternow = 0
            cbad = 0
            Timer1.Enabled = 0
            Label1.Text = 0
            cgood = 0
        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
Friend counter As Integer = 5
Friend counternow As Integer = 0
Friend cgood = 0
Friend cbad = 0
 
Function getanswer(q As Integer)
  If InputBox("In which year" & questions(q), "Question " & q + 1) = answers(q) Then
    cgood = cgood + 1
  Else
    cbad = cbad + 1
  End If
  Return true
End Function
 
Function resetform()
counter = 5
counternow = 0
cbad = 0
Timer1.Enabled = 0
Label1.Text = 0
cgood = 0
Return true
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
            getanswer(i)
            counternow += 1
            If cgood = 3 Then Exit For
        Next
 
        If cgood = 3 Then
            MsgBox("Congrats! You did " & cgood & " out of " & counter & ". You passed the test!")
           resetform()
        Else
          If counternow = counter Then
            MsgBox("Bad! You did " & cgood & " out of " & counter & ". You not passed the test!")
           resetform()
          End If
        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
            resetform()
 
        End If
    End Sub

'button2.click
if label1.text=0 then X=1
end if
 
 
        For i As Integer = 0 To counter - 1
            getanswer(i)
            counternow += 1
            If cgood = 3 Then Exit For
if x=1 then exit for
        Next
 
    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
            resetform()
 
        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!")
            If Label1.Text = 0 Then x = 1
            resetform()
 
        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
Friend counter As Integer = 5
Friend counternow As Integer = 0
Friend cgood = 0
Friend cbad = 0
Friend timeisout = 0
 
Function getanswer(q As Integer)
  If InputBox("In which year" & questions(q), "Question " & q + 1) = answers(q) Then
    cgood = cgood + 1
  Else
    cbad = cbad + 1
  End If
  Return true
End Function
 
Function resetform()
counter = 5
counternow = 0
cbad = 0
Timer1.Enabled = 0
Label1.Text = 0
cgood = 0
Return true
End Function
 
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
timeisout = 0
Label1.Text = 45
Timer1.Enabled = True
 
        For i As Integer = 0 To counter - 1
            getanswer(i)
            counternow += 1
            If cgood = 3 Then Exit For
            If timeisout = 1 Then Exit For
        Next
 
        If cgood = 3 Then
            MsgBox("Congrats! You did " & cgood & " out of " & counter & ". You passed the test!")
           resetform()
        Else
          If counternow = counter Then
            MsgBox("Bad! You did " & cgood & " out of " & counter & ". You not passed the test!")
           resetform()
          End If
        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
timeisout = 1
            MsgBox("Sorry you are out of time! Please Try again!")
            resetform()
 button2.click
        End If
    End Sub

Button1_Click(sender, e)

Try
            
            If Not IsNumeric(TextBox1.Text And TextBox2.Text) Then
            End If
 
        Catch ex1 As Exception
            MsgBox("Please input only digits")
        End Try

Try
'Выполняем любой код программы и ждем возможные ошибки....
Catch ex1 As Exception
'Если произошла ошибка, то выполняем эту часть. Например выводим сообщение об ошибке + информацию о ней.
End Try

Function getanswer(q As Integer)
reenter:
Dim answ = InputBox("In which year" & questions(q), "Question " & q + 1)
If Not IsNumeric(answ) Then
MsgBox "This is no number!"
goto reenter
end if
  If  answ = answers(q) Then
    cgood = cgood + 1
  Else
    cbad = cbad + 1
  End If
  Return true
End Function

 For i = 1 To 20
            Dim X As String = InputBox("Please enter the " & numbers(i) & " number. To finish, just click OK button or press ENTER key ")
            If X = 0 Then Exit For
            list.Add(X)
        Next