Как распаковать ZIP-файл в 7z?

q = Адрес_сохранения_файла 'путь к каталогу, то есть к папке, в конце пути для распаковки должен присутствовать обратный слеш
b = Адрес_сохранения_файла & Имя_сохранённого_файла 'путь к файлу
'ошибка 53 File not found  Файл не найден когда отсутсвует WinRAR
Shell "C:\Program Files\WinRAR\rar.exe e " & b & " " & q 'файл b при помощи WinRAR распаковываем в папку q

Shell "C:\Program Files\7-Zip\7z.exe e " & b & " " & q

Dim b$, q$
 
DisplayAlerts = False
q = "C:\"
b = "C:\Test.rar"
Shell "C:\Program Files\WinRAR\rar.exe e " & b & " " & q, vbHide

Application.OnKey "%W"

Sub UnRar()
'Разархивируем архив C:\Temp\Test 5.rar
WinRarApp$ = "C:\Program Files\WinRAR\WinRAR.exe e -o+"
' e - разархивировать
' -o+ - перезаписывать существующие файлы
iPath = "C:\Temp\"
iArhivName$ = "Test 5.rar"
'добавляем двойные кавычки, что позволит нам работать с именем файла и путём, которые содержат пробелы.
'без кавычек пробелы недопустимы
adr$ = WinRarApp$ & " """ & iPath & iArhivName$ & """ """ & iPath & """ "
RetVal = Shell(adr$, vbHide) 'vbNormalFocus)
End Sub

q = "L:\Изменённые\"
b = "L:\Изменённые\1.rar"
 
Shell "C:\Program Files\7-Zip\7z.exe -min -e -o " & b & " " & q
 
  '-f   freshen: only changed files  -u   update: only changed or new files
  '-d   delete entries in zipfile    -m   move into zipfile (delete files)
  '-r   recurse into directories     -j   junk (don't record) directory names
  '-0   store only                   -l   convert LF to CR LF (-ll CR LF to LF)
  '-1   compress faster              -9   compress better
  '-q   quiet operation              -v   verbose operation/print version info
  '-c   add one-line comments        -z   add zipfile comment
  '-@   read names from stdin        -o   make zipfile as old as latest entry
  '-x   exclude the following names  -i   include only the following names
  '-F   fix zipfile (-FF try harder) -D   do not add directory entries
  '-A   adjust self-extracting exe   -J   junk zipfile prefix (unzipsfx)
  '-T   test zipfile integrity       -X   eXclude eXtra file attributes
  '-!   use privileges (if granted) to obtain all aspects of WinNT security
  '-R   PKZIP recursion (see manual)
  '-$   include volume label         -S   include system and hidden files
  '-h   show this help               -n   don't compress these suffixes

b = "L:\Изменённые\1.rar"
 
Shell "C:\Program Files\7-Zip\7z.exe e " & b

q = "L:\Изменённые\"
b = "L:\Изменённые\1.rar"
Shell "C:\Program Files\7-Zip\7z.exe -min -e -o " & b & " " & q
Shell "C:\Program Files\7-Zip\7z.exe e " & b & " " & q
 
b = "L:\Изменённые\1.rar"
Shell "C:\Program Files\7-Zip\7z.exe e " & b

q = "L:\Изменённые\"
b = "L:\Изменённые\1.rar"
ZipFile = b
ExtractTo = q
Set fso = CreateObject("Scripting.FileSystemObject")
'если нет папки с именем ..., тогда создать такую папку
If Not fso.FolderExists(ExtractTo) Then fso.CreateFolder (ExtractTo)
 
Set objShell = CreateObject("Shell.Application")
Set FilesInZip = objShell.NameSpace(ZipFile).Items 'ошибка !!!!!!метод NameSpace и объект IShellDispatch4 falied
objShell.NameSpace(ExtractTo).CopyHere (FilesInZip)
Set fso = Nothing
Set objShell = Nothing

Dim objAppShell As Object
Dim zipFileName As Variant
Dim unzippedFilePath As Variant
 
b = "c:\2.zip"
q = "C:\1"
 
Set objAppShell = CreateObject("Shell.Application")
objAppShell.Namespace(q).CopyHere objAppShell.Namespace(b).items

Dim zipFileName As Variant
Dim unzippedFilePath As Variant

objShell.NameSpace(ExtractTo).CopyHere FilesInZip, 20

objAppShell.NameSpace(q).CopyHere objAppShell.NameSpace(b).Items, 20

b = "c:\1.zip"
Shell "C:\7za.exe e " & b & " -y", vbNormalFocus

q = "L:\Изменённые\"
b = "L:\Изменённые\1.zip"
 
Shell "C:\Program Files\7-Zip\7z.exe x -aoa -r" & " " & Chr(34) & b & Chr(34) & " -o" & Chr(34) & q & Chr(34) & " " & "*.*"

'распаковываем из архива файл *.zip вариант без наличия на компьютере 7-Zip
Dim objAppShell As Object
q = "L:\Изменённые\"
b = "L:\Изменённые\1.zip"
Set objAppShell = CreateObject("Shell.Application")
'опции надо суммировать
'то есть чтобы переписывалось без подтверждения ((16)Respond with "Yes to All" for any dialog box that is displayed.)
'и не появлялось окно ((4)Do not display a progress dialog box.)
'надо сложить их значения 16 + 4 = 20 и получаем
objAppShell.NameSpace(q).CopyHere objAppShell.NameSpace(b).Items, 20 'не работает, появляется окно с запросом, как от него избавиться???

q = "L:\Изменённые\"
b = "L:\Изменённые\1.zip"
 
Set objShellApp = CreateObject("Shell.Application")
Set objfolder = objShellApp.Namespace((b))
 
arjnamespl = Split(b, "\")
arjname = arjnamespl(UBound(arjnamespl))
 
 
Dim objFile As Object
 
For Each objFile In objfolder.Items()
filepath = objFile.Path
filepathspl = Split(filepath, arjname & "\")
filename = filepathspl(UBound(filepathspl))
If Dir(q & filename) <> "" Then
Kill (q & filename)
objShellApp.Namespace(q).CopyHere objFile, 20
Else
objShellApp.Namespace(q).CopyHere objFile, 20
End If
Next

objShellApp.NameSpace(q).CopyHere objFile ', 20 'разархивируем файл с именем ...