Private Sub ToolStripTextBox2_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ToolStripTextBox2.KeyUp If e.KeyCode = Keys.Enter Then Using internet As New Net.WebClient Dim utf8 = System.Text.Encoding.UTF8 Dim keyword = ToolStripTextBox2.Text Dim encodedKeyword = Web.HttpUtility.UrlEncode(keyword) Dim query = "http://search.yahoo.co.jp/search?fr=yjdnqp&p=" & encodedKeyword & "&ei=UTF-8" Dim result As Byte() result = internet.DownloadData(query) WebBrowser1.DocumentText = utf8.GetString(result) End Using End If End Sub