Get the NOD & create extension dictionary
§To get the Named Objects Dictionary for the database
     Dim db = HostApplicationServices.WorkingDatabase
     Dim NOD As DBDictionary =
      trans.GetObject(db.NamedObjectsDictionaryId,      OpenMode.ForWrite, False)
§
§To create an ExtensionDictionary for an entity
§  myEntity.CreateExtensionDictionary()
Here are a couple of VB code snippets. The first one gets the Named Object Dictionary. It does this by getting the database and then by using the GetObject method of a transaction. Notice that you use the NamedObjectsDictionaryId of the database for the OBjectId argument of GetObject. This line of code will instantiate a variable named NOD as a DBDictionary.  The second snippet shows how to create an extension dictionary by using the CreateExtensionDictionary method of the entity.