Option Explicit

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function Module32First Lib "kernel32" (ByVal hSnapshot As Long, uProcess As MODULEENTRY32) As Long
Private Declare Function Module32Next Lib "kernel32" (ByVal hSnapshot As Long, uProcess As MODULEENTRY32) As Long
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long

Private Type MODULEENTRY32
  dwSize As Long
  th32ModuleID As Long
  th32ProcessID As Long
  GlblcntUsage As Long
  ProccntUsage As Long
  modBaseAddr As Long
  modBaseSize As Long
  hModule As Long
  szModule As String *  256 
  szExePath As String *  260 
End Type

Private Const PROCESS_ALL_ACCESS = &H1F0FFF

Sub Main()
    EnumWindows AddressOf EnumWindowsProc, ByVal  0 &
End Sub

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim uProcess As MODULEENTRY32, hSnapshot As Long, n  As Long
    Dim lngHwndProcess As Long, strProcessName  As String

    GetWindowThreadProcessId hwnd, lngHwndProcess ' получаем ID процесса
    
    hSnapshot = CreateToolhelp32Snapshot( 8 , lngHwndProcess)
    uProcess.dwSize = Len(uProcess)
    n = Module32First(hSnapshot, uProcess)

    Do While n
        strProcessName = UCase$(Left(uProcess.szModule, InStr(uProcess.szModule, Chr( 0 )) -  1 ))
        
        If strProcessName Like "*.EXE*" Then
            
            Debug.Print strProcessName
        
        End If
        n = Module32Next(hSnapshot, uProcess)
    Loop
    
    EnumWindowsProc = True
End Function