在VBA中，是否有循环类型、函数或方法来清理HTML文件中节点的每个循环的嵌套？

Dim htmlDoc As HTMLDocument
Set htmlDoc = New HTMLDocument

' 加载HTML文件
htmlDoc.body.innerHTML = "HTML文件内容"

' 获取所有的p标签节点
Dim pNode As HTMLDOMNode
For Each pNode In htmlDoc.getElementsByTagName("p")
    ' 处理每个p标签节点
Next pNode

Sub CleanHTMLNodes(node As HTMLDOMNode)
    ' 处理当前节点
    ' ...

    ' 递归处理子节点
    Dim childNode As HTMLDOMNode
    For Each childNode In node.childNodes
        CleanHTMLNodes childNode
    Next childNode
End Sub

' 调用递归函数清理HTML节点
CleanHTMLNodes htmlDoc.body

Class HTMLNodeCleaner
    Public Sub CleanNodes(node As HTMLDOMNode)
        ' 处理当前节点
        ' ...

        ' 递归处理子节点
        Dim childNode As HTMLDOMNode
        For Each childNode In node.childNodes
            CleanNodes childNode
        Next childNode
    End Sub
End Class

' 创建HTMLNodeCleaner对象并调用清理方法
Dim cleaner As New HTMLNodeCleaner
cleaner.CleanNodes htmlDoc.body