Grazie per le informazioni; ho letto la documentazione della funzione Dir e poi ho risolto in questo modo:

codice:
    Dim MyFile

    MyFile = Dir(Environ$("USERPROFILE") & "\Desktop\*.mdb")

    Do While Len(MyFile) > 0

        If Left(MyFile, 8) = "Aggiorna" Then
            MsgBox MyFile      ' oppure qualsiasi altra procedura 
            Exit Sub
        End If

    MyFile = Dir
    Loop

Per cortesia fammi sapere se ho scritto qualche stupidagine o come tu miglioreresti lo script.

Grazie