Password protecting 7-zip file

This is my finished code:

Dim file As Variant
   Const SOURCE = ""
   Const DEST = ""
   Const PATH_TO_7Z = "C:\Program Files\7-Zip\7z.exe"
   For Each file In CreateObject("Scripting.FileSystemObject").GetFolder(SOURCE).Files
      Shell PATH_TO_7Z & " a -pPASSWORD """ & DEST & "\" & file.Name & ".zip"" """ & file.Path & """"
   Next