Error while trying to unzip

First, I have tried the Ron de Bruin method with no luck. Same Runtime 91 error at the "CopyHere" line

I get a runtime error 91 "Object variable or With block variable not set " at the

' Set oSrc = ... line

I have tried every combination of double parenthesis, single parenthesis, "Items" , "Items.item", "Item" and so on that I can think
of.

If I omit the .Item reference no runtime error happens, but it doesn't unzip anything either.

Any Ideas ?

Sub Macro1()

' Macro1 Macro
   
   Dim oShell As Object
   Dim oFloder As Object
   Dim oSrc As Object
   
   Dim SRC As Variant
   Dim DEST As Variant
   
   SRC = "c:\TestZip1\SourceZipFolder.zip"
   DEST = "c:\TestZip2\"
   
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.Namespace((DEST))
    Set oSrc = oShell.Namespace((SRC)).Item
    oFolder.CopyHere oSrc
     
     End Sub