Dim A1XML As XmlReader = XmlReader.Create(A1XMLURL)
            While A1XML.Read()
                Select Case A1XML.NodeType
                    Case XmlNodeType.Element
                        MsgBox("Name: " & A1XML.Name)
                        Exit Select
                    Case XmlNodeType.Element
                        MsgBox("Text: " & A1XML.Value)
                        Exit Select
                    Case XmlNodeType.EndElement
                        MsgBox("Ende")
                        Exit Select
                End Select
 
            End While