option explicit
Dim zipProgram as string

zipProgram=App.Path & "\7za e imeFajla.zip -y"

Shell zipProgram
Kill imeFajla.zip