' VB .NET

' customerlist2.vb
Imports System
Imports System.Xml
Imports System.IO

Module Module1
    
   Sub Main()

      Dim myDocument As New Xml.XmlDocument()
      Dim myStream As New IO.FileStream("customerlist2.xml", IO.FileMode.Open)
      myDocument.Load(myStream)
      Dim zipValues As Xml.XmlNodeList
      zipValues = myDocument.SelectNodes("//customer/postalCode/text()")
      Dim i As Integer
      For i = 0 To zipValues.Count - 1
         zipValues(i).Value = zipValues(i).Value + "-0000"
      Next i
      myDocument.Save("customerlist3.xml")
      myStream.Close()

    End Sub

End Module