Как приостановить выполнение рекурсии с файлами? - VB

Формулировка задачи:

Как в такой ситуации...

Dim fso As New FileSystemObject, fldr As Folder, fil As File
Dim isFile As Long
 
Function GetFiles(a$, Optional r As Boolean = False) As Boolean
   
   Set MyFolder = fso.GetFolder(a$)
   Set SubF = MyFolder.SubFolders
   
   If Not r Then
      For Each fil In MyFolder.Files
         isFile = isFile + 1
      Next
   End If
   
   For Each fldr In MyFolder.SubFolders
      For Each fil In fldr.Files
         isFile = isFile + 1
      Next
      If fldr.SubFolders.Count > 0 Then Call GetFiles(fldr.Path, True)
   Next
   
End Function
 
Private Sub Form_Load()
   Call GetFiles("D:\!")
   MsgBox isFile
   Unload Me
End Sub

...сделать паузу во время подсчёта количества файлов? Вместо подсчёта может быть другое действие, например открыть, Append и закрыть. Если на форме будет кнопка "Пауза", как осуществить её при такой рекурсии, если в папке 1000 файлов и в глубину идёт папок 5, в каждом из которых тоже по 1000 файлов. У меня есть идея, но она громоздка.

Решение задачи: «Как приостановить выполнение рекурсии с файлами?»

textual
                            Листинг программы 
                        
                            Do: Loop Until Anything = MakeExit