Bueno, aquí tienes otra forma de eliminar todos los archivos de una carpeta con una antiguedad mayor de 5 días (se llamen como se llamen).
Código:
Dim FSO As Scripting.FileSystemObject
Dim SF As Scripting.File
Set FSO = New Scripting.FileSystemObject
For Each SF In FSO.GetFolder("c:\BackUps").Files
If SF.DateCreated < Now - 5 Then Kill "c:\BackUps\" & SF.Name
Next
Nota: Tienes que agregar la referencia "Microsoft Scripting Runtime"
Un saludo.