RE: [XM VBA] Accessing Dimension Note in VBA

Sorry to refresh such old topic, but i cant find the answer anywhere and this is the only trace there is.
Thing about notes they are treated as dimensions - and there is no method within .AsDimensionElement to .GetSubElements for enumeration like in cells. trying to treat a note .AsCellElement also brings up an error.
my macro needs to capitalize every letter in model text, textnode, dims etc.
///

If oElm.IsDimensionElement Then
Set enuDimElm = oElm.AsDimensionElement...... (here would be some get but there is none to choose from)

While enuDimElm.MoveNext
If enuDimElm.Current.IsTextNodeElement Then
Set oTxNodeElm = oenuDimElm.Current
Set enuText = oTxNode.AsTextNodeElement.GetSubElements
While enuText.MoveNext
Set oTxElm(n) = enuText.Current

'capitalize /rewrite etc sub call

Wend
End If
Wend

///
cant really tell where else this node could be stored.