Не работает сжатие/разархивирование архивов 7z

Sub _ImportFrom7z(fileName As String)
        'Распаковка
        Dim myProcess As Process = Process.Start(Application.StartupPath + "\7za.exe", "x -p12345nui " + fileName + """ """ + " -o" + Application.CommonAppDataPath + "1.2.0.0" + """")
 
        Do While Not myProcess.HasExited
            Application.DoEvents() 'Нужно что бы программа не зависла и откликалась на действия вовремя ожидания 
        Loop 
        'Действие по завершению
        MsgBox("Завершено: " & myProcess.ExitTime & "." & System.Environment.NewLine & "Код завершения: " & myProcess.ExitCode) 'Выводим информацию по завершению
        myProcess.WaitForExit() ' Ожидаем закрытия
        myProcess.Close() 'Освобождаем память
    End Sub
    Sub _ExportTo7z(fileName As String)
        Dim myProcess As Process = Process.Start(Application.StartupPath + "\7za.exe", "a -p12345nui -mhe -t7z -ssw -mx7 """ + fileName + """ """ + Application.CommonAppDataPath + "1.2.0.0" + """")
        ' -tzip - формат архива установлен в 7z, без этого ключа 7z по умолчанию
        ' -ssw - принудительная упаковка файлов, которые в данный момент открыты для записи
        ' -mx7 - степень сжатия (где 0 - без сжатия а 7 максимальна степень)
        ' -p12345 - шифрование архива, где 12345 - пароль
        ' -mhe - шифрование имен файлов
        ' Путь и полное имя создаваемого архива
        ' Путь и полное имя папки/файла необходимого архивировать
        Do While Not myProcess.HasExited
            Application.DoEvents() 'Нужно что бы программа не зависла и откликалась на действия вовремя ожидания 
        Loop
        'Действие по завершению
        MsgBox("Завершено: " & myProcess.ExitTime & "." & System.Environment.NewLine & "Код завершения: " & myProcess.ExitCode) 'Выводим информацию по завершению
        myProcess.WaitForExit() ' Ожидаем закрытия
        myProcess.Close() 'Освобождаем память
    End Sub

Private Sub ИмпортироватьИнформациюToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ИмпортироватьИнформациюToolStripMenuItem.Click
        If FileDialog1.ShowDialog() = DialogResult.OK Then
            Data._ImportFrom7z(FileDialog1.FileName)
        End If
    End Sub
 
    Private Sub ЕкспортировантьИнформациюToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ЕкспортировантьИнформациюToolStripMenuItem.Click
        If FileDialog2.ShowDialog() = DialogResult.OK Then
            Data._ExportTo7z(FileDialog2.FileName)
        End If
    End Sub