Код распаковки архива

Sub UnZip()
    Dim sh As New Shell32.Shell()
    Dim output As Shell32.Folder = sh.NameSpace("Директория в которую хотим распаковать")
    Dim input As Shell32.Folder = sh.NameSpace("Адрес к архиву из которого всё будет извлечено_d:\архив.zip_")
    output.CopyHere(input.Items, 4)
    End Sub

Imports Shell32
Public Class Form1
 
    Dim Path_Zip, File_Zip, Path_unZip As String '
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            My.Computer.Network.DownloadFile("http://minecraft-all.16mb.com/Update.zip", "C:\Users\" + System.Environment.UserName + "\AppData\Roaming\.minecraft\Update.zip")
            Dim sh As New Shell32.Shell()
            Dim output As Shell32.Folder = sh.NameSpace("Директория в которую хотим распаковать")
            Dim input As Shell32.Folder = sh.NameSpace("Адрес к архиву из которого всё будет извлечено_d:\архив.zip_")
            output.CopyHere(input.Items, 4)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        IO.Directory.CreateDirectory("C:\Users\" + System.Environment.UserName + "\AppData\Roaming\.minecraft")
    End Sub
End Class

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim sh As New Shell32.Shell()
            Dim output As Shell32.Folder = sh.NameSpace("папка куда распакуется архив")
            Dim input As Shell32.Folder = sh.NameSpace("путь к архиву с расширением")
            output.CopyHere(input.Items, 4)
    End Sub