Const PROCESS_QUERY_INFORMATION = &H400
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFFFFFF
Const STILL_ACTIVE = &H103&

Private Declare Function OpenProcess Lib "kernel32" ( _
  ByVal dwDesiredAccess As Long, _
  ByVal bInheritHandle As Long, _
  ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" ( _
  ByVal hProcess As Long, _
  lpExitCode As Long) As Long

Public Sub ExtractAndDelete()
    Dim hInstance As Long
    Dim hProcess As Long
    Dim lngRetval As Long
    Dim lngExitCode As Long
    Dim strCommand As String
    Dim intMode As Integer
    
    strCommand = "C:\Program Files\WinRAR\WinRar.exe e D:\1\Test.rar D:\1\"
    intMode =  1 
    
    hInstance = Shell(strCommand, intMode)
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or SYNCHRONIZE, _
      True, hInstance)
    Do
        lngRetval = GetExitCodeProcess(hProcess, lngExitCode)
        DoEvents
    Loop Until lngExitCode <> STILL_ACTIVE
    
    MsgBox "Извлечение файлов из архива завершено."
    
    Kill "D:\1\Test.rar"
End Sub