Dim zip = TextBox1.Text
Dim unzip = TextBox2.Text
 
      
Dim ZipToUnpack As String = zip
        Dim UnpackDirectory As String = unzip
        Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)
            Dim e1 As ZipEntry
            ' here, we extract every entry, but we could extract conditionally,
            ' based on entry name, size, date, checkbox status, etc.   
            For Each e In zip1
                e.Extract(UnpackDirectory, ExtractExistingFileAction.OverwriteSilently)
            Next
        End Using