Dim sc As New Shell32.Shell()
    'Create directory in which you will unzip your files .
    IO.Directory.CreateDirectory("C:UsersNikolajBankeDesktopTestUnzipped")
    'Declare the folder where the files will be extracted
    Dim output As Shell32.Folder = sc.NameSpace("C:UsersNikolajBankeDesktopTestUnzipped")
    'Declare your input zip file as folder  .
    Dim input As Shell32.Folder = sc.NameSpace("C:UsersNikolajBankeDesktopTestpeace.zip")
    'Extract the files from the zip file using the CopyHere command .
    output.CopyHere(input.Items, 4)