Unzip Function - Receive Download Folder With Files

I have the following function below, which works fine if you want to Extract a zip file. But, I have a problem, lets take an example, test.zip , which will have a folder within called Download which has txt files. Therefore, when I unzip I receive the Download folder with the files in it. Now, instead I want to unzip the zip folder to create a Test folder and within the Test folder the Download folder which will have all the text files. The function I have does ONLY the Download folder and not the test folder.

Private Sub unzip(ByVal filename As String, ByVal targetdir As String, ByVal overwrite As Boolean, Optional ByVal password As String = "")
Dim inputStrm As New ZipInputStream(File.OpenRead(filename))
inputStrm.Password = password
Dim nextEntry As ZipEntry = inputStrm.GetNextEntry()
[Code] .....