Dim XMLDoc As New Xml.XmlDocument
        XMLDoc.Load("quickie.xml")
        Dim nsm As New Xml.XmlNamespaceManager(XMLDoc.NameTable)
        nsm.AddNamespace("ns", _
          "http://mws.amazonservices.com/schema/Products/2011-10-01")
 
        Dim path As String = _
          "ns:GetLowestOfferListingsForASINResponse/ns:GetLowestOfferListingsF" & _
          "rASINResult/ns:Product/ns:LowestOfferListings/ns:LowestOfferListing"
 
        For Each n As Xml.XmlNode In XMLDoc.SelectNodes(path, nsm)
            Dim x As New clsProduct
            x.AItemCondition = n.SelectSingleNode( _
              "ns:Qualifiers/ns:ItemCondition", nsm).InnerText
            x.AItemSubcondition = n.SelectSingleNode( _
            "ns:Qualifiers/ns:ItemSubcondition", nsm).InnerText
            x.AFulfillmentChannel = n.SelectSingleNode( _
            "ns:Qualifiers/ns:FulfillmentChannel", nsm).InnerText
            x.AShipsDomestically = n.SelectSingleNode( _
            "ns:Qualifiers/ns:ShipsDomestically", nsm).InnerText
            x.AShippingTime = n.SelectSingleNode( _
            "ns:Qualifiers/ns:ShippingTime/ns:Max", nsm).InnerText
            x.ASellerPositiveFeedbackRating = n.SelectSingleNode( _
            "ns:Qualifiers/ns:ShipsDomestically", nsm).InnerText
            x.ANumberOfOfferListingsConsidered = n.SelectSingleNode( _
            "ns:NumberOfOfferListingsConsidered", nsm).InnerText
            x.ASellerFeedbackCount = n.SelectSingleNode( _
            "ns:SellerFeedbackCount", nsm).InnerText
            x.ALandedPriceCurrencyCode = n.SelectSingleNode( _
            "ns:Price/ns:LandedPrice/ns:CurrencyCode", nsm).InnerText
            x.ALandedPriceAmount = Replace(n.SelectSingleNode( _
            "ns:Price/ns:LandedPrice/ns:Amount", nsm).InnerText, ".", ",")
            x.AListingPriceCurrenyCode = n.SelectSingleNode( _
            "ns:Price/ns:ListingPrice/ns:CurrencyCode", nsm).InnerText
            x.AListingPriceAmount = Replace(n.SelectSingleNode( _
            "ns:Price/ns:ListingPrice/ns:Amount", nsm).InnerText, ".", ",")
            x.AShippingCurrencyCode = n.SelectSingleNode( _
            "ns:Price/ns:Shipping/ns:CurrencyCode", nsm).InnerText
            x.AShippingPriceAmount = Replace(n.SelectSingleNode( _
            "ns:Price/ns:Shipping/ns:Amount", nsm).InnerText, ".", ",")
            x.AMultipleOffersAtLowestPrice = n.SelectSingleNode( _
            "ns:MultipleOffersAtLowestPrice", nsm).InnerText
 
        Next (n)