Определить загруженность процессора

Option Explicit
Private Type FILETIME
    dwLowDateTime As Currency
    dwHighDateTime As Currency
End Type
 
Private Declare PtrSafe Function GetSystemTimes Lib "kernel32.dll" (ByRef idleTime As FILETIME, ByRef kernelTime As FILETIME, ByRef userTime As FILETIME) As Boolean
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)
 
Sub example()
    Dim Iter&
    Dim chckIter& 'следующая итерация, при которой будет проерка времени проверки CPU
    Dim chckTime! 'время следующей проверки CPU
    
    chckTime = Timer
    For Iter = 1 To 1000000 'какой-то длинный цикл
      
      'здесь основные вычисления
      
      If Iter < chckIter Then Else GoSub CheckCPUUsed 'проверка загруженности процессора перед выводом на лист
      
      DoEvents
      Sleep 10 'здесь операции с объектами листа (вместо sleep)
      
    Next
    Application.StatusBar =  ""  
Exit Sub
CheckCPUUsed:
    Const iterStep& = 10
    Const timeStep1 = 1! 'шаг проверки использования CPU при работе (сек.)
    Const timeStep2 = 3! 'шаг проверки использования CPU при ожидании (сек.)
    Const stepDif = timeStep2 - timeStep1
    Const cpuLimit = 20# 'предельный процент загрузки CPU, при котором макрос переходит в цикл ожидания
    
    chckIter = chckIter + iterStep
    If Timer < chckTime Then
    Else
        chckTime = chckTime + timeStep1
        If CPUUsage < cpuLimit Then
        Else
            chckTime = chckTime + stepDif
            Application.StatusBar = "Ожидание"
'            Debug.Print "Ожидание", Time
            Do 'цикл ожидания
                DoEvents
                Sleep 100
                If Timer < chckTime Then
                Else
                    chckTime = chckTime + timeStep2
                    If CPUUsage >= cpuLimit Then
                    Else
                        Exit Do
                    End If
                End If
            Loop
            Application.StatusBar = "Работа"
'            Debug.Print "Работа", Time
            Debug.Print
        End If
    End If
Return
End Sub
 
Function CPUUsage() As Double
'   https://www.cyberforum.ru/visual-basic/thread2609404.html#post14389329
'   edited by testuser2 19.10.24
    Static Init As Boolean
    Static StartTimes(1) As Currency
    Dim EndTimes(1) As Currency
    Dim CPU_Kernel As FILETIME
    Dim CPU_User As FILETIME
    Dim CPU_Idle As FILETIME
    Dim Idle_Time As Long
    Dim Total_Time As Long
   
    GetSystemTimes CPU_Idle, CPU_Kernel, CPU_User
    EndTimes(0) = CPU_Kernel.dwLowDateTime + CPU_User.dwLowDateTime
    EndTimes(1) = CPU_Idle.dwLowDateTime
  
    If Not Init Then
        StartTimes(1) = EndTimes(1)
        StartTimes(0) = EndTimes(0)
        Init = True
        Exit Function
    End If
      
    Idle_Time = EndTimes(1) - StartTimes(1)
    If Idle_Time > 0 Then
        Total_Time = EndTimes(0) - StartTimes(0)
        CPUUsage = ((Total_Time - Idle_Time) / Total_Time) * 100
    End If
    
    StartTimes(1) = EndTimes(1)
    StartTimes(0) = EndTimes(0)
 End Function