Sub Unzip(strZipFile, strDest)
	Dim fs, sa, fils
	Set fs = CreateObject("Scripting.FileSystemObject") 
	Set sa = CreateObject("Shell.Application") 
	If Not fs.FolderExists(strDest) Then fs.CreateFolder(strDest) 
	Set fils = sa.NameSpace(strZipFile).items 
	sa.NameSpace(strDest).CopyHere(fils) 
End Sub