codice:
    DO
    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 DO
        End If
    
    ELSE
        EXIT DO

    End If
    LOOP
...le modifiche sono in rosso