Imports System

Imports System.Xml

​

Public Module Module1

​

    Public Sub Main()

        'variables

        Dim States As New XmlDocument()

        Dim Url As String = "https://mysafeinfo.com/api/data?list=states&format=xml&case=lower&alias=statename=name,abbreviation=code,statehood=year&exclude=id&token=test"

        'request

        States.Load(Url)

        'iterate states collection

        For Each s As XmlElement In States.SelectNodes("//s")

            Console.WriteLine(String.Format("{0}, {1}, {2}, {3}", s.GetAttribute("name"), s.GetAttribute("code"), s.GetAttribute("capital"), s.GetAttribute("year")))

        Next

    End Sub

End Module

​