Quais os comandos para compactar um arquivo pelo VB usando o Winzip?

Preciso enviar um arquivo pelo OutLook, mas primerio preciso zipá-lo, tem com fazer isso via programação?

VE SE AJUDA....:

 

 ' Parâmetros de Winzip32.exe:
       ' -a = adiciona arquivos.
       ' -ef = compactação rápida; ex = compactação máxima.
       ' As aspas são necessárias caso o diretório tenha espaços no nome.
           strRet = "C:Arquivos de ProgramasWinzipWinzip32.exe -a -ex " _
                & """" & arqDestino & """ " & """" & arqOrigem & """"
       Call MeuShell(strRet, vbNormalFocus) 'Aqui faz a chamada ao módulo p/ aguardar até que o processo finalize