VB Error [Help]

Because im creating save editors and i need game title id's i decided to make a handy too that would help me, but i get the Game Name, but the TitleID shows as "D=Search"

Error?


ButtonX1 Code

Spoiler

Code:

If TextBoxX1.Text = Nothing Then
            MessageBoxEx.EnableGlass = False
            MessageBoxEx.show("Enter a Game", "Error")
        Else
            ListView1.Items.Clear()
            Try
                Dim web As New HtmlWeb()
                Dim doc As HtmlAgilityPack.HtmlDocument = web.Load("http://marketplace.xbox.com/en-US/Search?pagesize=90&query=" + TextBoxX1.Text + "&DownloadType=Game")
                Dim listItems As HtmlNodeCollection = doc.DocumentNode.SelectNodes("//div[@class='grid-4']")
                For Each node As HtmlNode In listItems
                    Title = node.SelectSingleNode("a").Attributes(2).Value
                    Dim href As String = node.SelectSingleNode("a").Attributes(1).Value
                    TID = href.Substring(href.Length - 8, 8)
                    Dim xitem As New ListViewItem(Title)
                    xitem.SubItems.Add(TID.ToUpper)
                    ListView1.Items.Add(xitem)
                Next
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            Dim results As String = ListView1.Items.Count.ToString()
            If results = 0 Then
                MessageBoxEx.EnableGlass = False
                MessageBoxEx.Show("No Game(s) Found!", "InFormation")
            End If
        End If