Ciao, avendo la necessità di salvare un file di testo mi sono affidato ad una commondialog.
Il mio problema è come fare per evitare che un file venga sovrascritto qualora esista già. Ho provato ad usare il fileExist di fso all'interno della sub della commondialog ma quest'ultima mi si chiude quando clicco su salva e il controllo viene fatto dopo.

Per ora ho fatto così, ma vorrei evitare che la commonD venga chiusa ed eventualmente riaperta:
codice:
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    CommonDialog1.Flags = cdlOFNHideReadOnly
    CommonDialog1.Filter = "access2access saved file (*.a2a)|*.a2a"
    CommonDialog1.FilterIndex = 2
    CommonDialog1.ShowSave
    nomeFile = Trim(CommonDialog1.FileName)
    
    If LCase(Right(nomeFile, 4)) <> ".a2a" Then nomeFile = nomeFile & ".a2a"
    
    Dim fso As New FileSystemObject
    
    If fso.FileExists(nomeFile) Then
        If MsgBox("Il file selezionato esiste già." & vbCrLf & "Vuoi sostituirlo?", vbYesNo, "Sovrascrivere il file?") = vbNo Then
            Call salva
            Exit Sub
        End If
    End If