Копирование в Zip папку - VB

 Dim addfilename As Variant
Dim addfilename1 As Variant
Private Sub Command1_Click()
Dim ShellApp As Variant
    Set ShellApp = CreateObject("Shell.Application")
 
    Open "C:\Test.zip" For Output As #1
        Print #1, Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, vbNullChar);
    Close #1
 
addfilename = "C:\Thumbs.db"
    ShellApp.NameSpace("C:\Test.zip").CopyHere addfilename
    'ShellApp.NameSpace(App.Path & "\archive.zip").CopyHere addfilename
 
End Sub