...............
If Dir(dir_export, vbDirectory) <> "" Then
If MsgBox("Directory already exists. Do you want to overwrite it? All content will be deleted", vbYesNo, "Confirm") = vbYes Then
If Dir(dir_export & "*.*") <> "" Then
Kill (dir_export & "*.*")
End If
RmDir dir_export
Else
MsgBox ("File export aborted")
End
End If
Else
MkDir dir_export
End If