Как прервать несколько (вложенных) циклов For

Imports Google.Apis.Drive.v3
Imports Google.Apis.Sheets.v4
 
    Public gdGoo As Google.Apis.Drive.v3.DriveService ' диск гугля
    Public gGooShSer As Google.Apis.Sheets.v4.SheetsService ' таблица гугля
    Public gSheet As Google.Apis.Sheets.v4.Data.Sheet ' таблица гугля
    Public gResult ' полученный ресурс от google drive
 
Sub
    gResult = ResultGoogleD("mimeType = """ & "application/vnd.google-apps.folder" & """" & "and" & "name = """ & "..." & """", grF)
    For Each file As Google.Apis.Drive.v3.Data.File In gResult.Files
         Dim sheetRequestP = gGooShSer.Spreadsheets.[Get](file.Id)
         Dim sheetResponseP = sheetRequestP.Execute()
         For Each oSheetP In sheetResponseP.Sheets
                  If oSheetP.Properties.Title = "2222" Then
                          Exit For ' ___________ тут нужно выполнить выход из всех циклов в основной потока Саба!
                  End If
         Next
    Next
 ' нужно выйти сюда из всех циклов

Dim f As Boolean = False
For i = 0 To 10000
    If f Then Exit For
    For j = 0 To 10000
        If f Then Exit For
        For k = 0 To 10000
            'If f Then Exit For
            If j = 2 Then
                f = True
                Exit For
            End If
        Next
    Next
Next

Dim f As Boolean = False
For Each file As Google.Apis.Drive.v3.Data.File In gResult.Files
    If f Then Exit For
         For Each oSheetP In sheetResponseP.Sheets
                  If oSheetP.Properties.Title = "2222" Then
                          f = True
                          Exit For
                  End If
         Next
    Next

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim lst1 As New List(Of Integer)
        Dim lst2 As New List(Of Integer)
        Dim lst3 As New List(Of Integer)
        Dim f As Boolean = False
        For i = 0 To 6000
            lst1.Add(i)
            lst2.Add(i)
            lst3.Add(i)
        Next
        For Each itm1 In lst1
            Application.DoEvents()
            If f Then Exit For
            TextBox1.Text = itm1
            For Each itm2 In lst2
                Application.DoEvents()
                If f Then Exit For
                TextBox2.Text = itm2
                For Each itm3 In lst3
                    Application.DoEvents()
                    If itm2 = 3 Then
                        f = True
                        Exit For
                    End If
                    TextBox3.Text = itm3
                Next
            Next
        Next
    End Sub
End Class