Dim WebBrowser1 As New WebBrowser Private Sub GoogleSearch(ByVal Text As String) Dim text As String = Text WebBrowser1.Navigate("http://www.google.co.jp/search?hl=ja&q=" & text) End Sub