Const URLGoogle As String = "http://www.google.it/search?source=ig&hl=it&rlz=&q=%1&btnG=Cerca+con+Google"

    Private Sub CercaGoogle(pStringa As String)
        WebBrowser1.Navigate(URLGoogle.Replace("%1", pStringa.Replace(" ", "+")))
    End Sub