Последовательное выполнение процессов

    Sub move_txtfiles()
        way_to_folder = way_to_DSD.Text
        If System.IO.Directory.Exists("скаченные\" + month_ago + " " + my_post_name.Text + " " + lb_year.Text) Then
            IO.File.Move(way_to_folder + "\test.txt", way_to_my_applicattion + "\скаченные\" + month_ago + " " + my_post_name.Text + " " + lb_year.Text + "\test.txt")
        End If
    End Sub

    Sub copy_txtfiles()
        If System.IO.Directory.Exists("обработанные") Then
            IO.File.Copy(way_to_my_applicattion + "\обработанные\test.txt", way_to_folder + "\test.txt")
        End If
    End Sub

    Private Sub lb_time_TextChanged(sender As Object, e As EventArgs) Handles lb_time.TextChanged
        If cb_algoritm_start.Checked = True Then
            move_txtfiles()
            copy_txtfiles()
         End If
    End Sub

    Private Sub lb_time_TextChanged(sender As Object, e As EventArgs) Handles lb_time.TextChanged
        If cb_algoritm_start.Checked = True Then
            move_txtfiles()
 
            'ждем пока файл исчезнет из папки1
            Do While IO.File.Exist("путь_к_файлу_папки1") = True
            Loop
 
            copy_txtfiles()
         End If
    End Sub

   
 Private Sub lb_time_TextChanged(sender As Object, e As EventArgs) Handles lb_time.TextChanged
        If cb_algoritm_start.Checked = True Then
            move_txtfiles()
 
            'ждем пока файл исчезнет из папки1
            Do While IO.File.Exist("путь_к_файлу_папки1") = True
            Loop
 
            copy_txtfiles()
         End If
    End Sub