Software Quality Assurance Forums: How to modify any node in XML file in QTP?

I have gone through the previously mailed replies but unable to resolve. Below is code which I used to read XML file but am unable to modify any node.
*************VB Script******************
'Creates object for "Msxml2.DOMDocument"
Set xmlDoc = CreateObject("Msxml2.DOMDocument")
'Loads XML whhich we want to read
xmlDoc.load("d:\anand\test.xml")
'Selects the method through which we want to read the XML
Set Namenode = xmlDoc.getElementsByTagName("Name")
Set Placenode = xmlDoc.getElementsByTagName("Place")
Set Agenode = xmlDoc.getElementsByTagName("Age")
'Calculate the length of the node item this is helpful while retrieving xml items
Namelength=Namenode.length
Agelength=Agenode.length
Placelength=Placenode.length
Counter=1
'Loop to retrive xml items.

for Counter=0 to Namelength-1
Nameitem=Namenode.item(Counter).Text
Ageitem=Agenode.item(Counter).Text
Placeitem= Placenode.item(Counter).Text
msgbox Nameitem
msgbox Ageitem
msgbox Placeitem

next
**********And XML FILE IS***************
<PersonalInformation>
<Name>Ashish</Name>
<Place>Mumbai</Place>
<Age>25</Age>

<Name>Mahesh</Name>
<Place>Pune</Place>
<Age>40</Age>

<Name>Nitin</Name>
<Place>Thane</Place>
<Age>27</Age>

<Name>Giri</Name>
<Place>Nagpur</Place>
<Age>30</Age>

</PersonalInformation>

*****************************************

Edited by anandst (02/21/07 04:11 AM)

'Creates object for "Msxml2.DOMDocument"
Set xmlDoc = CreateObject("Msxml2.DOMDocument")
'Loads XML whhich we want to read
'xmlDoc.Load "d:\anand\test.xml"
'Selects the method through which we want to read the XML
Set Namenode = xmlDoc.getElementsByTagName("Name")
Set Placenode = xmlDoc.getElementsByTagName("Place")
Set Agenode = xmlDoc.getElementsByTagName("Age")
'Calculate the length of the node item this is helpful while retrieving xml items
Namelength = Namenode.Length
Agelength = Agenode.Length
Placelength = Placenode.Length
Counter = 1
'Loop to retrive xml items.

For Counter = 0 To Namelength - 1
If Counter = 0 Then
Namenode.Item(Counter).Text = "My New First Name"
End If
Nameitem = Namenode.Item(Counter).Text
Ageitem = Agenode.Item(Counter).Text
Placeitem = Placenode.Item(Counter).Text
MsgBox Nameitem
MsgBox Ageitem
MsgBox Placeitem
Next
xmlDoc.Save "d:\anand\test.xml"