


  xeElements = New XmlElement[]
  xeElements = hXMLDocument.GetElementsByTagName("mw")
  asNames = New String[]
  For i = 0 To xeElements.Max
    txaList.Insert(xeElements[i].Value & gb.NewLine)
    asNames.Add(xeElements[i].Value)
  Next
  xeElements = New XmlElement[]
  xeElements = hXMLDocument.GetElementsByTagName("vorname")
  asNames = New String[]
  For i = 0 To xeElements.Max
    txaList.Insert(xeElements[i].Value & gb.NewLine)
    asNames.Add(xeElements[i].Value)
  Next
  xeElements = New XmlElement[]
  xeElements = hXMLDocument.GetElementsByTagName("nachname")
  asNames = New String[]
  For i = 0 To xeElements.Max
    txaList.Insert(xeElements[i].Value & gb.NewLine)
    asNames.Add(xeElements[i].Value)
  Next
  xeElements = New XmlElement[]
  xeElements = hXMLDocument.GetElementsByTagName("strasse")
  asNames = New String[]
  For i = 0 To xeElements.Max
    txaList.Insert(xeElements[i].Value & gb.NewLine)
    asNames.Add(xeElements[i].Value)
  Next
  xeElements = New XmlElement[]
  xeElements = hXMLDocument.GetElementsByTagName("wohnort")
  asNames = New String[]
  For i = 0 To xeElements.Max
    txaList.Insert(xeElements[i].GetAttribute("plz") & gb.NewLine)
    asNames.Add(xeElements[i].Value)
  Next  
  asNames = New String[]
  For i = 0 To xeElements.Max
    txaList.Insert(xeElements[i].GetAttribute("ort") & gb.NewLine)
    asNames.Add(xeElements[i].Value)
  Next  
