Путь к открытому exe-файлу - VBA/Excel

Формулировка задачи:

Приветствую всех! Помогите решить простую задачку. Открыты: исходный файл Excel с кодом VBA, несколько сторонних программ, среди которых нужная - "XTest.exe" (заголовок окна - "X-Test"). Задача: произвести операции с файлом в директории с exe-шником, для чего нужно в VBA получить путь к папке "XTest.exe". Думал, что решение это - AppActivate "X-Test" MyPath = CurDir, но выдает MyPath = "C:\Users\UserName\Documents". Заранее благодарю откликнувшихся.

Решение задачи: «Путь к открытому exe-файлу»

textual
                            Листинг программы 
                        

                            Sub Test()
For Each x In GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process")
 If x.Name = "XTest.exe" Then MsgBox x.ExecutablePath
Next
End Sub
                        