Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

Sub TestOpenExitApp()
Dim pID As Long, phnd As Long
    pID = Shell("C:\Program Files\WinRAR\WinRAR.exe")
 If pID <>  0  Then
 MsgBox "Ïðîãðàììà çàãðóæåíà."
'Debug.Print Hex(pid)
  'Else
  
    phnd = OpenProcess(STANDARD_RIGHTS_REQUIRED,  0 , pID)
    TerminateProcess phnd,  0 
'    pid = GetExitCodeProcess(phnd, 0)
' If pid = 0 Then
' MsgBox "Ïðîãðàììà íå çàãðóæåíà."
'    ExitProcess pid
'End If
    CloseHandle phnd
   End If
End Sub