Imports System
Imports System.Xml
Public Class Test
Public Shared Sub Main()
Dim sXml As String = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf & _
"<!DOCTYPE response>" & vbCrLf & _
"<response>" & vbCrLf & _
"<players>" & vbCrLf & _
"<player>" & vbCrLf & _
"<SteamId>76561198165372820</SteamId>" & vbCrLf & _
"<CommunityBanned>false</CommunityBanned>" & vbCrLf & _
"<VACBanned>false</VACBanned>" & vbCrLf & _
"<NumberOfVACBans>0</NumberOfVACBans>" & vbCrLf & _
"<DaysSinceLastBan>0</DaysSinceLastBan>" & vbCrLf & _
"<NumberOfGameBans>0</NumberOfGameBans>" & vbCrLf & _
"<EconomyBan>none</EconomyBan>" & vbCrLf & _
"</player>" & vbCrLf & _
"<player>" & vbCrLf & _
"<SteamId>76561198061612021</SteamId>" & vbCrLf & _
"<CommunityBanned>false</CommunityBanned>" & vbCrLf & _
"<VACBanned>false</VACBanned>" & vbCrLf & _
"<NumberOfVACBans>0</NumberOfVACBans>" & vbCrLf & _
"<DaysSinceLastBan>0</DaysSinceLastBan>" & vbCrLf & _
"<NumberOfGameBans>0</NumberOfGameBans>" & vbCrLf & _
"<EconomyBan>none</EconomyBan>" & vbCrLf & _
"</player>" & vbCrLf & _
"<player>" & vbCrLf & _
"<SteamId>76561198297792008</SteamId>" & vbCrLf & _
"<CommunityBanned>false</CommunityBanned>" & vbCrLf & _
"<VACBanned>false</VACBanned>" & vbCrLf & _
"<NumberOfVACBans>0</NumberOfVACBans>" & vbCrLf & _
"<DaysSinceLastBan>17</DaysSinceLastBan>" & vbCrLf & _
"<NumberOfGameBans>1</NumberOfGameBans>" & vbCrLf & _
"<EconomyBan>none</EconomyBan>" & vbCrLf & _
"</player>" & vbCrLf & _
"</players>" & vbCrLf & _
"</response>"
Dim doc As New XmlDocument
doc.PreserveWhitespace = True
doc.LoadXml(sXml)
For Each Entry As XmlNode In doc.SelectNodes("//player")
Console.WriteLine(Entry.InnerXml)
Next
End Sub
End Class