If Element.GetAttribute("className") = "js_listingResultsContainer" Then
                        For Each Element1 As HtmlElement In Element.GetElementsByTagName("div")


                            For Each Element8 As HtmlElement In Element1.GetElementsByTagName("a")

                                If Element8.GetAttribute("href") IsNot Nothing Then


                                    Dim Element9 As String = Element8.GetAttribute("href")

                                    i = i + 1
                                    DataGridView1.Rows.Add()


                                Dim Stringer As String = Element9
                                Dim tokens As String
                                Try
                                    tokens = Stringer.Substring(Stringer.LastIndexOf("https://") + 0)
                                Catch ex As Exception
                                    tokens = Stringer
                                End Try



                                Dim SplitLine As String()
                                SplitLine = Split(tokens, "&imgFocus")
                                Dim split2 As String = SplitLine(0)


                                ListBox1.items.add(split2)




                                End If



                            Next





                        Next


                    End If