Selected annotated view name to string

[iscariot]

I really need help with this
How can I get (in a string) the name of the selected annotated view ? or maybe the item number?
I would really apreciate the help.

 

[iscariot]

In case that other will need it
' Get the name of the selected annotation view
Dim AnnSelection as Selection
Set AnnSelection = CATIA.ActiveDocument.Selection

Dim str2DViewName As String
str2DViewName = AnnSelection.item2(1).Value.Name

msgbox str2DViewName