求助：需求是使用Shell语句调用winzip64.exe解压.gz文件。原始代码如下：

Sub GZ_Extractor()
Dim File As Variant
Dim shellStr as String
File = Dir("C:\Users\Folder\")
while (file<>"")
     If InStr(1,file,".gz")>0 then
         shellStr = "C:\Program Files\Winzip\winzip64.exe -e C:\Users\Folder\" & file &"C:\Users\Folder\"
         Call Shell(shellStr, vbHide)
    End If
    file = Dir
Wend
End Sub

运行无报错，但是"C:\Users\Folder"内的.gz文件并没有解压成功。
请问这段代码为何无法解压？若有更好的思路欢迎交流~