Como eu faço para Descompactar um arquivo .ZIP no VB.NET?

Preciso disso urgente!

Pessoal estou passando aqui o código para descompactar um arquivo ZIP utilizando a biblioteca SharpZipLib, no VB.NET. Depois de muita pesquisa eu consegui encontrar alguma coisa:

 

Imports System.IO
Imports ICSharpCode.SharpZipLib.Zip

 

    Private Function DescompactarArquivoZIP(ByVal strArqCompac As String) As Boolean
       'strArqCompac é o nome do arquivo ZIP que será descompactado
        Dim ArqZipLeitura As New ZipInputStream(File.OpenRead(strArqCompac))
        Dim ArqZip As New ZipFile(strArqCompac)

        Try

            For Each ArqInZip As ZipEntry In ArqZip
                ArqInZip = ArqZipLeitura.GetNextEntry
                Dim NomeArq As String = sDirDestino & ArqInZip.Name
                If NomeArq <> "" Then
                    Dim EscreverArq As FileStream = File.Create(NomeArq)
                    Dim Tamanho As Integer = 2048 'FileLen(strArqCompac)
                    Dim Dado(2048) As Byte
                    While True
                        Tamanho = ArqZipLeitura.Read(Dado, 0, Dado.Length)
                        If (Tamanho > 0) Then
                            EscreverArq.Write(Dado, 0, Tamanho)
                        Else
                            Exit While
                        End If
                    End While
                    EscreverArq.Close()
                End If
            Next
            ArqZipLeitura.Close()

            DescompactarArquivoZIP = True

        Catch ex As Exception
            DescompactarArquivoZIP = False
            MsgBox(ex.ToString())
        End Try
    End Function

Também é possível fazer a compactação e a descompactação de arquivos .ZIP pelo próprio WinZip. Através dos arquivos WZUNZIP.EXE e WZZIP.EXE. Com esses arquivos que você instala do próprio site do WinZip, você pode compactar e descompactar arquivos pelo DOS. Aí, tendo esses arquivos fica fácil. O código vai abaixo:

 

    Private Function DescompactarArquivoZIP2() As Boolean
        Try

            Shell(Application.StartupPath & "WZUNZIP.EXE " & sDirDestino & "BDIN.ZIP " & Mid(sDirDestino, 1, Len(sDirDestino) - 1), AppWinStyle.Hide, True)

            DescompactarArquivoZIP2 = True

 

        Catch ex As Exception
            MsgBox(ex.ToString)
            DescompactarArquivoZIP2 = False
        End Try
    End Function