Dim xml_daten_Array(6) As String
Dim countDaten As Integer = 0
 
                For Each node As Xml.XmlNode In xDocument.SelectNodes( _
                  "daten/Steuer")
                    xml_daten_Array(countDaten) = node.Attributes( _
                    "Datensatz").InnerText + countFragen.ToString
                    countDaten += 1
                Next