The following code works but, is looking at the last Model that was opened in the file. There are three models "Default", "Existing Conditions" and "Overlay" in the dgn file.
Dim myDesFile As DesignFile Set myDesFile = OpenDesignFileForProgram("SP8165…