Apagar arquivos da pasta via VBA

Olá pessoal tenho uma dúvida, encontrei um código que apaga arquivos de uma pasta, quero usar isso para o código de backup automático que uso em meu BD, fiz alguns testes e funcionou normalmente, ele apaga td na pasta e logo após cria o arquivo de backup, eu faço backup 2x na semana uma na segunda e na quarta, que são os dias com mais entradas de dados no banco, porém eu gostaria de manter as 2 últimas cópias do BD, e não sei como fazer o arquivo que apaga deixar apenas o arquivo mais recente antes de criar a nova cópia, se puderem me ajudar deixo o código que apaga os arquivos abaixo:

Código:


Sub modClearFolder(Caminho As String, Ext As String)
 
    'Rotina para excluir arquivos de um diretório qualquer
    Do Until Dir(Caminho & "\*." & Ext) = ""
        VBA.Kill (Caminho & "\*." & Ext) 'Excluir arquivo com a extensão escolhida
    Loop
 
End Sub



Código:


Function BackupBD()
'elaborado por: JPaulo - 11/10/2006
'alterado por: Ewerton Mendes - 02/07/2015

Dim CopiaSegura As Object
Dim Caminho As String

Caminho = "\\Servidor\c\ISMO\backup\manutencao\" & CurrentProject.Name 'Nome da pasta e nome de inicio para o banco de backup

'Determina o dia da semana em que o backup é feito
    If Weekday(Now) = 2 or  Weekday(Now) = 4 Then

'apaga backups anteriores
    Call modClearFolder("\\Servidor\c\ISMO\backup\manutencao", "mdb")
  
'cria o objeto CopiaSegura
    Set CopiaSegura = CreateObject("Scripting.FileSystemObject")

'Executa o comando de backup do BD
    CopiaSegura.CopyFile CurrentProject.Path & "\" & CurrentProject.Name, Caminho & Format(Now(), "_ddmmyyyy") & ".mdb"

    End If
End Function