How to add custom styles to navigation pane or change them with VBA
VBA isn't required.
In the modify style dialog select FORMAT - PARAGRAPH and change the OUTLINE LEVEL from Body Text to the Outline Level you want.
This will add all the headings with that style to the document document outline shown in the Navigation Pane.