[V8i VBA] Find TextStyle in DgnLib

I want to find a named Text Style.  MicroStation VBA provides a TextStyles collection for the active design file, so I can do something like this:

Dim oStyle                              As TextStyle
Set oStyle = ActiveDesignFile.TextStyles.Find("MyStyle")

However, that doesn't differentiate between styles in the DGN file and those in a DgnLib.  How can I search attached DgnLibs for Text Styles that have not yet been copied into the active DGN file?


I answered my own question here.  While the method above works for most cases, it doesn't differentiate between a Text Style found in the active DGN file and a Text Style whose definition is found in a DGNLib. 

Using a wrapper around an MDL function mdlTextStyle_getByName, the VBA function published here lets you differentiate between a Text Style definition already in your active DGN file and a definition that resides in an attached DGNLIb.