Different feature definitions and feature reset using VBA

I have three different feature definitions (XML files) in directories "MS_GEOPROJHOME" & "\xml\features\" and three in "MS_GEOWSHOME" & "\xml\features\" directory. I want to reset features from two DGN files and join them in one using VBA.

My code works as follows and it actually does what it is supposed to:

  1. Change confinguration variable „MS_GEOXFM_FEATUREDEF_FILES“
  2. Close current file
  3. Open first file.
  4. Reset features whose definition is in current XML..
  5. Change confinguration variable „MS_GEOXFM_FEATUREDEF_FILES“
  6. Close file
  7. Open first file.
  8. Reset features whose definition is in current XML..
  9. Change confinguration variable „MS_GEOXFM_FEATUREDEF_FILES“
  10. Close file
  11. Open second file.
  12. Reset features whose definition is in current XML..
  13. Change confinguration variable „MS_GEOXFM_FEATUREDEF_FILES“
  14. Close file
  15. Open fsecond ile.
  16. Reset features whose definition is in current XML..
  17. Change confinguration variable „MS_GEOXFM_FEATUREDEF_FILES“ to original value
  18. Close file
  19. Open file from step 2.
  20. Copy first and second file to current DGN.

 

I have to reopen file so many times because I don't know better way to force PowerMap to read proper XML file and reset in proper symbology. Is there any other way to do so? It is really annoying for users to click „Yes“ on PM 'Save Changes' dialog 5 times. Or is there a way to automate clicking "Yes" bottun or avoid "Save changes" dialog?