Ошибка создания архива zip

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

    Private Sub ЕкспортировантьИнформациюToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ЕкспортировантьИнформациюToolStripMenuItem.Click
        FileDialog2.ShowDialog()
        Data._ExportTo7z(FileDialog2.FileName)
    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