You will have to Add a reference to Microsoft Shell Controls and Automation. Once that is done, see this code snipet:
Dim sc As New Shell32.Shell()
IO.Directory.CreateDirectory("C:\test")
Dim output As Shell32.Folder = sc.NameSpace("C:\test")
Dim input As Shell32.Folder = sc.NameSpace("C:\Form1.cab")
output.CopyHere(input.Items, 4)
This should do the trick.