Eccolo:
.... .... ....
codice:
 FolV = Fso.GetFolder(App.Path & "\Dati").Size
           
        intRis = MsgBox("Proseguire nella copia in  " & ValoreDir & "  ? " & " Byte da copiare " & Format(FolV, "#,##0"), vbYesNoCancel + vbQuestion, "Applicazioni Aziendali")
        'TxtPerc.Text = "Copiato il  " & intShpVal & " %" & "  di  " & Format(FolV, "#,##0") & "  byte" & "  in  " & ValoreDir
        
'Copia la cartella Dati nella Directory in base a quanto inserito in ValoreDir:
        Fso.CopyFolder App.Path & "\Dati", ValoreDir, True
        
        FolN = Fso.GetFolder(ValoreDir).Size

'Controlla la dimensione in byte delle due cartelle:
        If FolV = FolN Then
            MsgBox "I dati  ( pari a  " & Format(FolV, "#,##0") & "  byte )" & "  sono stati copiati " & Chr(13) _
            & "con successo nella directory  " & ValoreDir, vbInformation, "Applicazioni Aziendali"
  
'Riabilita i controlli:
            Call AbilitCtr
            Else
            MsgBox "Il backup ha fallito, ripetere l'operazione", vbInformation, "Applicazioni Aziendali"
'Riabilita i controlli:
            Call AbilitCtr
        End If
         
        Set Fso = Nothing
        
        frmMain.TxtStato = "Pronto"
    End If

'L'operazione è stata annullata:
        If intRis = vbNo Or intRis = vbCancel Then
            MsgBox "L'operazione è stata Annullata.", vbInformation, "Applicazioni Aziendali"
            frmMain.TxtStato = "Pronto"
            Exit Sub
        End If
End Sub
Come vedi uso exit sub, però prima che l'operazione di copia abbia inizio.