PublicFunction getTextSymbol()Function getTextSymbol(pFeatureClass As IFeatureClass) As ITextSymbol Dim pTextSym As ITextSymbol Dim pAnnoClass As IAnnoClass Set pAnnoClass = pFeatureClass.Extension IfNot pAnnoClass.SymbolCollection IsNothingThen Dim pSColl As ISymbolCollection Set pSColl = pAnnoClass.SymbolCollection pSColl.Reset Dim pSymID As ISymbolIdentifier Set pSymID = pSColl.Next DoUntil pSymID IsNothing IfTypeOf pSymID.Symbol Is ITextSymbol Then Set pTextSym = pSymID.Symbol EndIf Set pSymID = pSColl.Next Loop Else Dim pFCur As IFeatureCursor Set pFCur = pFeatureClass.Search(Nothing, False) Dim pAnnofeat As IAnnotationFeature Set pAnnofeat = pFCur.NextFeature DoUntil pAnnofeat IsNothing IfTypeOf pAnnofeat.Annotation Is ITextElement Then Set pTextSym = pAnnofeat.Annotation EndIf Set pAnnofeat = pFCur.NextFeature Loop EndIf Set getTextSymbol = pTextSym End Function