Попробуйте выбрать фруктовые узлы (используя XPath), где внутренний текст содержит «яблоко». После получения перечислите результаты, информируя родительский узел (фрукты) об удалении выбранных дочерних узлов, которые были возвращены выбором XPath.
Например, вот упрощенный пример, в котором предполагается, что XML файл загружается локально (через файловый ввод / вывод), и результаты которого сохраняются в новом файле (для просмотра):
With Server.CreateObject("Microsoft.XMLDOM")
.async = False
.load("data.xml")
Dim apple, apples : Set apples = .documentElement.selectNodes("/fruits/fruit[text()='apple']")
For Each apple In apples
apple.parentNode.removeChild(apple)
Next
.save("data2.xml")
End With
Надеюсь, что это полезно.