unzip32.dll解压缩文件出有关问题了

unzip32.dll解压缩文件出问题了
代码在下面可以每次解压都找不到完成的文件，和解？求大虾帮忙

Private Sub Form_Click()
    Dim prom%, over%, mess%, dirs%, numf&, numx&
    Dim zipfile$, unzipdir$

    crlf = Chr$(13) + Chr$(10)
    Cls

    vbzipinf = ""
    vbzipnum = 0   

    prom = 1  ' 1=prompt to overwrite
    over = 0  ' 1=always overwrite files
    
    mess = 1  ' 1=list contents of zip 0=extract
    dirs = 1  ' 1=honour zip directories
    
    vbzipnam.s(0) = vbNullString
    numf = 0

    vbxnames.s(0) = vbNullString
    numx = 0
        
    zipfile = "c:\w1\w1.zip" ''改为你想Unzip的文件
    unzipdir = "C:\w1\jieya" ''改为你想放置文件的目录

    Call VBUnzip(zipfile, unzipdir, prom, over, mess, dirs, numf, numx)   

    If Len(vbzipmes) > 0 Then Print vbzipmes
    If Len(vbzipinf) > 0 Then
        Print "vbzipinf is:"
        Print vbzipinf
    End If
    If vbzipnum > 0 Then Print "Number of files: " + Str$(vbzipnum)
End Sub
------解决方案--------------------
vbzipnam 和 vbxnames 是什么东东？