Tabi ki konabilir. Ama program işlevlerini yerine getirmek için 7zip programına ihtiyaç duyuyor.
Ancak sıkıştırma işlemlerini manual yaparım derseniz

yzip = Left(LFilename, Len(LFilename) - 4)

Call press(LFilename, yzip)         ' 7Zip İle Yedekleme Sıkıştırma İşlemini Yapıyoruz.

MsgBox "yedekleme işlemi tamamlanmıştır. Dosyanız " & LFilename & " Konumundadır..."

Kill LFilename                      ' Yedekleme İçin Kullandığımız Geçici Veritabanını Siliyoruz.

Bu satırları silebilirsiniz.