Private Sub Command1_Click() Dim colProcesses As Object Dim objProcess As Object Set colProcesses = GetObject("winmgmts:").ExecQuery("select * from win32_process") For Each objProcess In colProcesses Debug.Print objProcess.ExecutablePath Next Set colProcesses = Nothing End Sub