Recoger bien la fecha de la Copia de Seguridad.

Tengo este proceso que realizo para guardar las Copias de Seguridad en una aplicación.

Dim campo1 As String
campo1 = FechaCopia
Me.NumeroDia = Weekday(campo1, vbMonday)
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 si existe para el mismo dia *
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", 

End If

Realizo dos Copias en el mismo Día: AM/PM. El problema que tengo es que al ver el resultado de las copias en el diectorio siempre me coloca la misma Fecha y Hora de la modificación: 6/11/2022 21:55

Lo que busco es evitar esto y que recoja la Fecha y Hora actual.