vb用winzip解壓,無法跳到error :(編號：8318)

Private Sub Unzip(ByVal zipfile As String)
On Error GoTo Unziperr
　
　 rtnunzip = Shell("c:\program files\winzip\winzip32 -min -e -o " & zipfile & " " & TPath & "\temp", vbNormalFocus)
　 MsgBox retval
　 Exit Sub
　
Unziperr:
unzipmsg = MsgBox("解壓縮檔失敗 " & zipfile, vbExclamation, "解檔訊息")

End Sub
我故意做了一個有問題的.zip檔解壓test,為何只出現winzip的錯誤訊息,而不會跳到我的error 的程序中,並且winzip還必須手動關閉
,why?
我的程式目的是要做將某目錄中的所有壓縮檔一次自動解壓,並記錄
解壓的成功或失敗的狀態...教我如何做吧?