e vedere se Dim theEntry As ZipEntry, sia valorizzato ????