Как из одной процедуры прервать выполнение другой?

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        in_bd()
        For st = 1 To col_tabl
            in_file()
            run_prog()
            Timer2.Start() ' Run Script
            Timer1.Start() 'search excell and kill proj and files
            pc = pc + 1
        Next
    End Sub

 If trt >= 25.0 Then
                        Timer1.Stop()
             End If

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 If IO.File.Exists("C:\Users\Aleksanr\Documents\Ansoft\graf.csv") Then

If IO.File.Exist("C:\Folder\SubFolder\MyFile.txt") Then
'Файл есть, парсим.

' запускаем программу, результатом работы которой будет появление файла
Dim myProcess As Process = System.Diagnostics.Process.Start("C:\Program Files\AnsysEM\HFSS15.0\Win64\hfss.exe")
 
 
' далее нужно уловить момент когда этот файл появится и выполнить код ниже
 If IO.File.Exists("C:\Users\Aleksanr\Documents\Ansoft\graf.csv") Then
 
            Dim start As Integer
            Dim Massiv() As String = IO.File.ReadAllLines("C:\Users\Aleksanr\Documents\Ansoft\graf.csv", System.Text.Encoding.Default)
            For start = 1 To Massiv.Length - 1
                Dim zn As String = Massiv(start)
                If zn.IndexOf("1,") = 0 Then
                    Dim trt As Double = Replace(Mid(zn, 4, 2), ".", ",")
 
                    If trt >= 25.0 Then
                        Timer1.Stop()
                        MsgBox("условие выполняется")
                        ct = True
                        Exit Sub
                    End If
                End If
            Next
            Timer1.Stop()
            MsgBox("условие не выполняется")
            ' Удаляем процесс и проекты
            kill_hfss()
       
        End If

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Hello, ""BreakFast!""")
        Do While Work() = False
            Application.DoEvents()
            Me.Text = "Все еще нет..."
        Loop
        Me.Text = "Ура, дождались!"
        MsgBox("Bye :(")
    End Sub
 
    Function Work() As Boolean
        If IO.File.Exists("C:\10.txt") Then
            Return True
        End If
        System.Threading.Thread.Sleep(1000)
    End Function