Sub ParseXML_PlayerStats()
        Dim xDoc As XDocument = XDocument.Parse(XMLData)
        Dim i As Integer = 0
        ReDim ParseTypePlayerScore.Player(xDoc.<stats>.<player>.Count)

        'Puntetyp erfassen
        ParseTypePlayerScore.Type = xDoc.<stats>.<stats_header>.@type

        For Each Xel As XElement In xDoc.<stats>(0).<player>
            With ParseTypePlayerScore
                Try
                    .Player(i).PlayerRank = Integer.Parse(Val(Xel.@rank))
                    .Player(i).PlayerName = Xel.@playername
                    .Player(i).PlayerID = Integer.Parse(Val(Xel.@playerid))
                    .Player(i).HonorPoints = Integer.Parse(Val(Xel.@honor_points))
                    .Player(i).Score = Integer.Parse(Val(Xel.@score))
                    .Player(i).AllyName = Xel.@allyname
                    .Player(i).AllyID = Integer.Parse(Val(Xel.@allyid))
                Catch ex As Exception
                    ' Platz für Fehlerbehandlung in diesem Datensatz ^^
                    Debug.Print("Fehler in clsParseXML.ParseXML_PlayerStats -->" & ex.Message.ToString)
                End Try
                i = +1
            End With
        Next
    End Sub