Какой то не красивый XML ))) Если в Вашем варианте значение "acceptedAmount" константа, т.е. 500, то что мешает просто в тексте сделать replace() ??

Тогда все хуже, надо конечно разбирать XML срадствами Microsoft.XMLDOM, но не ясно как "выкусить" тот "ТЕГ" где "acceptedAmount", нет никакого уникального идентификатора, разве что по счету, т.е. в Вашем варианте 4-й

Если файл test.xml такой:

<?xml version="1.0" encoding="windows-1251" ?>
<line>
<field width="40" style="bold" label="Номер телефона:" />
<field width="40" style="bold" align="right" >account</field>
<field width="40" label="Принято:" />
<field width="40" style="bold" align="right" >acceptedAmount</field>
<field width="40" label="Комиссия:" />
<field width="40" style="bold" align="right" label="10 руб" />
<field width="40" style="bold" label="Зачислено:" />
<field width="40" style="bold" align="right" >operationAmount</field>
</line>



Dim oXMLFile
Dim oFile
Set oXMLFile = CreateObject("Microsoft.XMLDOM")
Set oFile = CreateObject("Scripting.FileSystemObject")

oXMLFile.loadXML oFile.GetFile("d:\test.xml").OpenAsTextStream.ReadAll

MsgBox oXMLFile.xml '---- Было
oXMLFile.childNodes.Item(1).childNodes.Item(3).Text = Val(oXMLFile.childNodes.Item(1).childNodes.Item(3).Text) + 10
MsgBox oXMLFile.xml '---- Стало

Ну это примерно так, надо конечно всякие Item(1) и проч конечно переписать ))