Public Declare Function OpenProcess Lib  "kernel32"  (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WaitForSingleObject Lib  "kernel32"  (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Public Declare Function GetExitCodeProcess Lib  "kernel32"  (ByVal hProcess As Long, lpExitCode As Long) As Long

Public Function RunARHIV(s As String, ws As Long) As Boolean
  Dim hHandle As Long
  Dim dwProcessId As Long
  Dim lpExitCode As Long
  Dim E As Long
  Dim arj_path As String

  arj_path = {путь к архиватору}
  If Right(arj_path,  1 ) <>  "\"  Then arj_path = arj_path &  "\" 
  
  RunARHIV= False
  On Error GoTo M_End
  ChDir (arj_path)
  dwProcessId = Shell(arj_path & s, ws)
  hHandle = OpenProcess(&H1F0400,  1 , dwProcessId)                 ' $ 00000400  = PROCESS_QUERY_INFORMATION + $000F0000 STANDARD_RIGHTS_REQUIRED + $ 00100000  SYNCHRONIZE
  If hHandle <>  0  Then
    DoEvents
    Call WaitForSingleObject(hHandle, - 1 )
    Call GetExitCodeProcess(hHandle, lpExitCode)
    RunARHIV= (lpExitCode =  7 ) Or (lpExitCode =  0 )
    DoEvents
  Else
    DoEvents
    RunARHIV= True
  End If
M_End:
End Function

RunARHIV({командная строка для архиватора}, vbMinimizedNoFocus)