Имеется xml файл структура которого сожержит:
- <ФИО>
<Фамилия>Иванов</Фамилия>
<Имя>Иван</Имя>
<Отчество>Иванович</Отчество>
</ФИО>

нужно во всем файле вместо фамилии поставить слово "нет"
пишу следующий код:

Sub asd()
Set xmlParser = CreateObject("Msxml2.DOMDocument")
xmlParser.async = False
xmlParser.Load "d:\2500.xml"
xmlParser.validateOnParse = False
xmlParser.resolveExternals = False
xmlParser.preserveWhiteSpace = True
Set currNode = xmlParser.documentElement
Dim oNode As IXMLDOMNode
Set oNodes = xmlParser.selectNodes("//Фамилия")
For i = 0 To oNodes.Length
Set oNode = oNodes.nextNode
If Not (oNode Is Nothing) Then
sName = oNode.nodeName
sData = oNode.Text
oNode.Text = "Нет"
End If
Next
End Sub

не срабатывает. Не подскажет ли кто нибудь что нужно исправить?