program = App.Path & "\7za.exe"
    zipFajl = App.Path & "\data.bin"
    strString = program & " e " & zipFajl & " -y"  'ovo y je za overwrites
    ShellAndWait strString, vbMinimizedNoFocus