Архивация файлов в zip - VB

Формулировка задачи:

объясните, пожалуйста, в чем прикол.
такая программка работает, архивирует определенные файлы в zip архив

NewZip(sPath)
     Len(Dir(sPath)) >    sPath
     sPath  Output  #
     #, Chr$() & Chr$() & Chr$() & Chr$() & (, )
     #
 

Zip_Doc()
  ZipApp  
  FileNameDoc1   = 
  FileNameDoc2   = 
  FileNameZip   =  

    NewZip (FileNameZip)
     ZipApp = CreateObject()
    ZipApp.(FileNameZip).CopyHere FileNameDoc1
    ZipApp.(FileNameZip).CopyHere FileNameDoc2
    
      ZipApp.(FileNameZip).Items.Count = 
        Application.Wait (Now + TimeValue())

     ZipApp = 
 

если задаю имя архива как переменную FileNameZip, а не как константу - не работает, создается пустой архив и цикл Do не прекращается (без обработчика ошибок - ошибка Object variable not set при копировании файла в архив)

....

  FileNameZip   
    FileNameZip = 
 ....

вообще-то изначально необходимо передавать имя файлов и архива из другой процедуры, но не работает уже на этом этапе!
спасибо.

Решение задачи: «Архивация файлов в zip»

textual
                            Листинг программы 
                        
                            <font color="blue">Sub</font> Test1()
  ExtractFromZipToFolder <font color="teal">"C:\Tmp\Archive.zip"</font>, <font color="teal">"C:\Tmp"</font>
<font color="blue">End</font> <font color="blue">Sub</font>