Прервать/остановить выполнение функции - VB

Explicit 

Dim fso  New FileSystemObject 
Dim fld  Folder 

Private Sub Command1_Click() 
   Dim nDirs  Long, nFiles  Long, lSize  Currency 
   Dim sDir  String, sSrchString  String 
   sDir = InputBox(, _ 
                   , ) 
   sSrchString = InputBox(, _ 
                   , ) 
   MousePointer = vbHourglass 
   Label1.Caption =  & vbCrLf & UCase(sDir) &  
   lSize = FindFile(sDir, sSrchString, nDirs, nFiles) 
   MousePointer = vbDefault 
   MsgBox (nFiles) &  & (nDirs) & _ 
          , vbInformation 
   MsgBox  & lSize &  
 Sub

Private  FindFile(ByVal sFol  String, sFile  String, _ 
   nDirs  Long, nFiles  Long)  Currency 
   Dim tFld  Folder, tFil  , FileName  String 
    
    Error  Catch 
    fld = fso.GetFolder(sFol) 
   FileName = Dir(fso.BuildPath(fld.Path, sFile), vbNormal  _ 
                  vbHidden  vbSystem  vbReadOnly) 
    (FileName) <>  
      FindFile = FindFile + FileLen(fso.BuildPath(fld.Path, _ 
      FileName)) 
      nFiles = nFiles +  
      List1.AddItem fso.BuildPath(fld.Path, FileName)   Get   
      DoEvents 
   Wend 
   Label1 =  & vbCrLf & fld.Path &  
   nDirs = nDirs +  
    fld.SubFolders. >   
       Each tFld  fld.SubFolders 
         DoEvents 
         FindFile = FindFile + FindFile(tFld.Path, sFile, nDirs, nFiles) 

Catch:  FileName =  
       Resume  
 

Private Sub Form_KeyPress(KeyAscii  ) 
 KeyAscii = vbKeyCancel   Sub 
 Sub