Use of iAccessible is possible!
Dim As IAccessible
Set oIA = CommandBars("Navigation")
oIA.Visible = True
Then deeply recursively find the child with accName="Navigation"andaccRole=38
3 accValue=NAVBAR accRole=60
2 NAVBAR - , .
.accDoDefaultAction CHILDID_SELF