Dim Rutaexe As String
Dim Rutazip As String
Rutazip = "C:\ & "nombre" & ".zip"
Rutaexe = "C:\tu_aplicacion.exe"
Shell ("C:\Archivos de programa\Winrar\WinRar.exe a -m5 -ep " & Rutazip & " " & Rutaexe) 'se ejecutara el winrar y es comprimira el archivo tu_aplicacion.exe como nombre.zip
Shell ("C:\Archivos de pograma\Winzip\Winzip32.exe -a" & Rutazip & "" & Rutaexe) 'igual que el anterior pero lo hara con el winzip en vez de el winrar