Public Function extract(ByVal Datei As String)
        'Extract begin
        Dim tzipp As String
        If IntPtr.Size > 4 Then
            TextBox1.Text = TextBox1.Text & "System als 64 Bit erkannt" & vbCrLf
            tzipp = Application.StartupPath & "\7z64.dll"
        Else
            TextBox1.Text = TextBox1.Text & "System als 32 Bit erkannt" & vbCrLf
            tzipp = Application.StartupPath & "\7z.dll"
        End If
 
        Dim extractLocation As String = Application.StartupPath
        TextBox1.Text = TextBox1.Text & "Lade Entzipper" & vbCrLf
        SevenZipExtractor.SetLibraryPath(tzipp)
 
        Application.DoEvents()
 
        ' Create extractor and specify the archive to extract
        TextBox1.Text = TextBox1.Text & "Dekomrimiere Datei" & vbCrLf
        Dim ext As SevenZipExtractor = New SevenZipExtractor(Datei)
 
        ' Handlers
        AddHandler ext.Extracting, AddressOf ext_Extracting
 
        'Start the extraction
 
        ext.ExtractArchive(extractLocation)
   End Function