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)
            Me.TextBox1.Text = Me.TextBox1.Text & n.Name & vbCrLf
            Me.TextBox1.Text = Me.TextBox1.Text & "Feedbackcount" & " " & _
              n.SelectSingleNode("ns:SellerFeedbackCount", nsm).InnerText & _
              vbCrLf
            Me.TextBox1.Text = Me.TextBox1.Text & _
            "NumberOfOfferListingsConsidered" & " " & n.SelectSingleNode( _
            "ns:NumberOfOfferListingsConsidered", nsm).InnerText & vbCrLf
            Dim path1 As String = _
            "ns:GetLowestOfferListingsForASINResponse/ns:GetLowestOfferListing" & _
            "ForASINResult/ns:Product/ns:LowestOfferListings/ns:LowestOfferLis" & _
            "ing/ns:Price/ns:LandedPrice"
            For Each m As Xml.XmlNode In XMLDoc.SelectNodes(path1, nsm)
                Me.TextBox1.Text = Me.TextBox1.Text & m.Name & vbCrLf
                Me.TextBox1.Text = Me.TextBox1.Text & "Amount" & " " & _
                  m.SelectSingleNode("ns:Amount", nsm).InnerText & vbCrLf
            Next
        Next