Hola, estoy buscando algún control activex para poder comprimir y
descomprimir ficheros, preferiblemente en formato rar o zip.

He visto algunos de pago, pero igual conocéis alguno que sea libre o al
menos gratis.

He probado ActiveZipper, es sencillo pero es lentísimo:

Dialog.actZip.SourceFile = strFichero
strZip = Left(strFichero, Len(strFichero) - 3) & "zip"

Dialog.actZip.OutPutFile = strZip
Dialog.actZip.Compress

¿Alguna sugerencia?