[nasos23]

Καλησπέρα Γιώργο
Έχεις κάνει και παλαιότερα το ίδιο ερώτημα εδώ
https://www.ms-office.gr/forum/acces...minimatos.html
και σου απάντησε ο Τάσος.
Ακολούθησε λοιπόν τις οδηγίες του Τάσου
και θα έχεις το επιθυμητό αποτέλεσμα.
Δηλ. Βάλε τον κώδικα του Τάσου σε μια λειτουργική μονάδα

Option Compare Database
Option Explicit

Sub MessageBox(Prompt As String, _
               Optional TimeSpan As Integer = 0, _
               Optional Title As String = "")
    Dim ScriptFilename As String
    Dim strText As String
    Dim fso    As Object
    Dim oStream As Object

    Set fso = CreateObject("Scripting.FileSystemObject")
    ScriptFilename = fso.BuildPath(Environ("TEMP"), "msg.vbs")
    
    strText = "CreateObject(""wscript.shell"").popup "
    strText = strText & Chr(34) & Prompt & Chr(34) & ", " & TimeSpan & ", " _
              & Chr(34) & Title & Chr(34) & ", 4160"
    
    Set oStream = fso.CreateTextFile(ScriptFilename, True, True)
    oStream.Write strText
    oStream.Close
    Set fso = Nothing
    
    Shell "wscript.exe " & Chr(34) & ScriptFilename & Chr(34)
End Sub

και το μήνυμα διαμορφώνεται ως εξής:
MessageBox "Τα αρχεία αντιγράφηκαν επιτυχώς στο φάκελο Β. Έγινε καθαρισμός" & _
" του φακελου Α", 2, "ΕΝΗΜΕΡΩΣΗ"

Το TimeSpan ορίζεται σε 2, που σημαίνει ότι το μήνυμα θα κλείσει μετά από 2 δευτερόλεπτα.
Καλή συνέχεια