Descomprimir ZIP

para que el código funcione, es necesario incluir referencia de Ionic.Zip.dll (puedes descargarla de aqui)

copiar el siguiente código:

 
Dim ZipAExtraer As String = ".../carpetaZip/compri.zip"
Dim DirectorioExtraccion As String = ".../CarpetaDatos/"
Using zip1 As ZipFile = ZipFile.Read(ZipAExtraer)
  Dim e As ZipEntry
  For Each e In zip1
    e.Extract(DirectorioExtraccion, ExtractExistingFileAction.OverwriteSilently)
  Next
End Using

Saludos