' Jede gefundene Prozess-ID des Arrays abarbeiten
    For i = 1 To NumElements
 
      ' Versuchen, den Prozess zu öffnen und ein Handle zu erhalten
      hProcess = OpenProcess(PROCESS_QUERY_INFORMATION _
                          Or PROCESS_VM_READ, _
                             0, ProcessIDs(i))
      If (hProcess <> 0) Then ' OpenProcess war erfolgreich
 
        ' EnumProcessModules gibt die dem Prozess angehörenden
        ' Module in einem Array zurück.
        RetVal = EnumProcessModules(hProcess, Modules(1), 1, cbNeeded2)
 
        If (RetVal <> 0) Then ' EnumProcessModules war erfolgreich
          ModuleName = Space$(MAX_PATH) ' Speicher reservieren
 
          ' Den Pfadnamen für das erste gefundene Modul bestimmen
          LenName = GetModuleFileNameEx(hProcess, Modules(1), ModuleName, Len( _
            ModuleName))
 
          ' Den gefundenen Pfad und die Prozess-ID unserer
          ' ProcessCollection hinzufügen (Trennzeichen "|")
          collProcesses.Add Left$(ModuleName, LenName) & "|" & _
                            CStr(ProcessIDs(i))
        End If
 
      End If
 
      CloseHandle hProcess ' Offenes Handle schließen
 
    Next i

Nur ein toter Bug ist ein guter Bug!