Al realizar Copias de Seguridad guarda mal la Fecha y Hora en la copia realizada.

A la salida de la aplicación realiza Copias de seguridad de forma automatica y en el directorio de la copia siempre coloca la misma Fecha y Hora de modificación: 06/11/2022 21:55.

Estoy utilizando esta rutina para realizar el copiado:

Dim VerDirectorio As String
VerDirectorio = DLookup("DirectorioCopiasSeguridad", "PARAMETROSEMPRESA")
If Len(Dir(VerDirectorio, vbDirectory)) = 0 Then
MkDir VerDirectorio
Else
End If
    '* NUMERO DIA SEMANA *
Dim campo1 As String
campo1 = FechaCopia
Me.NumeroDia = Weekday(campo1, vbMonday)
    '* COPIAS AM/PM *
Me.VerHora = Hour(txtHora)
If Me.VerHora < 15 Then
Me.DiaSemana.Value = NumeroDia & " - " & WeekdayName(Weekday(FechaCopia, vbMonday), , vbMonday) & " [AM]"
Else
Me.DiaSemana.Value = NumeroDia & " - " & WeekdayName(Weekday(FechaCopia, vbMonday), , vbMonday) & " [PM]"
End If
'* Borra la Copia Anterior para el mismo Dia de Trabajo *
If VerDirectorio & Me.DiaSemana & "_be.accdb" = True Then
Kill VerDirectorio & Me.DiaSemana & "_be.accdb"
Else
Dim fso As New FileSystemObject
fso.CopyFile DirectorioBaseDatos, VerDirectorio & Me.DiaSemana & "_be.accdb", True
DoCmd. Quit

No se de donde se saca la Fecha y la Hora al guardar la copia.