vFullFilePath = uiws.OpenFileDialog(True, "Please select ...") If Isempty(vFullFilePath) = True Then Msgbox "No files selected.", 64, db.title Exit Sub End If