Dim MainNode, TestNode ' objects
' Set the MainNode to be the child of the provided node.
Set MainNode = Node.GetChildren
' Use recursion to step through each node in the form. This routine
' walks to the last node in each page, then traverses back up the tree,
' deleting nodes that are not in the XFDL namespace as it goes.
Do While (Not(MainNode Is Nothing))
Set TestNode = MainNode.GetNext
Set MainNode = TestNode
' Check to see if the node passed to the routine is in the Custom
' namespace. If so, delete the node.
If Node.GetNamespaceURI = "http://www.ibm.com/xmlns/prod/XFDL/Custom" Then