Beh gestendolo dalla msgbox puoi fare questo

codice:
Dim str as String
str = MsgBox (MsgBox("Proseguire nella copia in  " & ValoreDir & "  ? " & " Byte da copiare " & Format(FolV, "#,##0"), vbOkCancel + vbQuestion, "Applicazioni Aziendali"))

Select case str
     case "vbOk":
        'istruzione
     case "vbCancel":
        'istruzione
End Select
Oppure un lavoro piu' pulito lo puoi fare con una form da te creata.
Ricorda che una volta iniziata un' operazione SQL non la puoi interrompere ...