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

Function GetCPUUsage() As Double
    Static WMI As Object 'SWbemServicesEx
    Static IdleItem As Object' SWbemObjectEx
    Static prevTotalTm#, prevIdleTm#
    Static InitFlag As Boolean
    Dim process As Object 'SWbemObjectEx
    Dim TotalTm#, deltaTotalTm#
    Dim IdleTm#, deltaIdleTm#
        
    DoEvents
    If InitFlag Then
    Else
        Set WMI = GetObject("winmgmts:\root\cimv2")
        Set IdleItem = WMI.ExecQuery("SELECT * FROM Win32_Process Where Name Like '%Idle%'").ItemIndex(0)
        InitFlag = True
    End If
    
    For Each process In WMI.ExecQuery("SELECT * FROM Win32_Process")
      With process
        TotalTm = TotalTm + CDbl(.KernelModeTime) + CDbl(.UserModeTime)
      End With
    Next
    IdleItem.Refresh_
    With IdleItem
      IdleTm = CDbl(.KernelModeTime) + CDbl(.UserModeTime)
    End With
    
    deltaTotalTm = TotalTm - prevTotalTm
    deltaIdleTm = IdleTm - prevIdleTm
    prevTotalTm = TotalTm
    prevIdleTm = IdleTm
    
    GetCPUUsage = 100 - deltaIdleTm * 100 / deltaTotalTm
End Function

[D1] = GetCPUUsage()