XMLNode.NextSibling (Word)

Returns an XMLNode object that represents the next element in the document that is at the same level as the specified element.

If the specified element is the last element in the XMLNodes collection, this property returns Nothing.

Dim objNode As XMLNode 
 
Set objNode = ActiveDocument.XMLNodes(2).NextSibling