'Zusammengesetzte Anfrage "query"
        Dim query As String = api_url + api_parameter
 
 
        Dim XMLDoc As Xml.XmlDocument = New Xml.XmlDocument
        XMLDoc.Load(query)
 
        Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(query)
 
 
        Dim Parameter As Xml.XmlNode
        Dim root As Xml.XmlNode = XMLDoc.DocumentElement
        Parameter = root.SelectSingleNode("ResultSet")
        Dim gesuchter_wert As String = Parameter.Attributes( _
          "totalResultsAvailable").Value
 
        'Rückgabewert der Funktion get_xml_data
        get_xml_data = gesuchter_wert
 
 
    End Function

<?xml version='1.0' encoding='UTF-8'?>
<ResultSet
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xsi:schemaLocation="apiadresse"
    totalResultsAvailable="148"
    totalResultsReturned="0">
    </ResultSet>