Ожидание завершения ранее запущеного процесса - VB

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

Есть некий код который запускает файл в системе root.exe после его завершения мне нужно выполнить в основной программе следующие действия, например msgbox "root.exe status closed." Нашёл такой код но он мне не подходит так как уже процесс запущен мне нужно получить PID и дождаться его завершения.

                    Листинг программы
                
Dim v As Variant 
Set v = CreateObject("Wscript.Shell") 
v.run "c:\windows\notepad.exe", 1, True 
set v=nothing 
Beep 'пикнет только ПОСЛЕ того, как запущенная прога будет закрыта. Если не пикает, включи колонки.) 
MsgBox "qq"

Сяб вам.

Решение задачи: «Ожидание завершения ранее запущеного процесса»

textual
                            Листинг программы 
                        
Public Sub WaitForProcessToEnd(cmdLine As String)
 
  Dim retVal As Long, pID As Long, pHandle, msWait As Long
  msWait = 1000000000#
   
  pID = Shell(cmdLine)
  pHandle = OpenProcess(&H100000, True, pID)
  retVal = WaitForSingleObject(pHandle, msWait)
    
End Sub