The code works only in half

 Private Sub ElectricButton2_Click(sender As Object, e As EventArgs) Handles ElectricButton2.Click        WebBrowser1.Navigate("https://www.blurum.it/Web/")
        Dim searchBox As HtmlElement = Nothing
        Dim searchButton As HtmlElement = Nothing
        searchBox = WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search_bar_input")
        searchButton = WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search")
        Do While WebBrowser1.Document Is Nothing OrElse searchBox Is Nothing OrElse searchButton Is Nothing
            Application.DoEvents()
            searchBox = WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search_bar_input")
            searchButton = WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search")
        Loop
        Dim keyword As String = ListBox1.SelectedItem
        searchBox.SetAttribute("value", keyword)
        searchButton.InvokeMember("click")
        WebBrowser1.Refresh()
        For i As Integer = ListBox1.SelectedItems.Count - 1 To 0 Step -1
            Dim k As Integer = ListBox1.SelectedIndices(i)
            ListBox1.Items.RemoveAt(k)
        Next
        Timer1.Enabled = True
    End Sub






    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Enabled = True
        WebBrowser1.Navigate("https://www.blurum.it/Web/")
        Dim searchBox As HtmlElement = Nothing
        Dim searchButton As HtmlElement = Nothing
        searchBox = WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search_bar_input")
        searchButton = WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search")
        Do While WebBrowser1.Document Is Nothing OrElse searchBox Is Nothing OrElse searchButton Is Nothing
            Application.DoEvents()
            searchBox = WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search_bar_input")
            searchButton = WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search")
        Loop
        Dim keyword As String = ListBox1.SelectedItem
        searchBox.SetAttribute("value", keyword)
        searchButton.InvokeMember("click")
        WebBrowser1.Refresh()
        For i As Integer = ListBox1.SelectedItems.Count - 1 To 0 Step -1
            Dim k As Integer = ListBox1.SelectedIndices(i)
            ListBox1.Items.RemoveAt(k)
        Next
        Dim asd = ListBox1.Items(0)
        WebBrowser1.Document.GetElementsByTagName("input").OfType(Of HtmlElement)().FirstOrDefault(Function(p) p.GetAttribute("classname") = "search_bar_input").InnerText = (asd)
        ListBox1.Items.RemoveAt(0)
        Dim r as New Random
        Timer1.Interval = r.Next(30000, 60000)
        Timer1.Enabled = True
    End Sub

<div class="search_bar_style">
                    <input name="ctrl_SearchControl$txtSearch" type="text" maxlength="255" id="txtSearch" class="search_bar_input" style="display:none;">
                    <input name="ctrl_SearchControl$A2350807d-11cb-41de-ac2f-ed36857e9d30" type="text" value="test" maxlength="255" id="A2350807d-11cb-41de-ac2f-ed36857e9d30" class="search_bar_input">
                </div>