Hallo,
versuch es mal mit
Dim str7Zip As String str7Zip = Chr(34) & ThisWorkbook.Path & "\7ZipPortable\App\7Zip\7z.exe"""