Imports System.IO
Imports System.IO.Compression


Module UnzipFile

    Sub Main()
        ' On Error Resume Next
        Dim startPath As String = "c:\example\start"
        Dim zipPath As String = "C:\example\123.zip"
        Dim extractPath As String = "c:\example\extractPath"

        'ZipFile.CreateFromDirectory(startPath, zipPath)

        ZipFile.ExtractToDirectory(zipPath, extractPath)

    End Sub