VBA pesquisa google

[fertelance]

Prezados preciso de um auxílio... meu conhecimento ainda é muito limitado e iniciante, mas enfim...
Preciso realizar uma pesquisa no google via VBA.

Uma pesquisa no formato: "carro"+"elétrico"+"gasolina"+"diesel"

Não consigo enviar o sinal de + junto com as palavras na forma como mostrada acima. O sinal de + não aparece. Gostaria de saber se existe alguma solução para o código abaixo.

Usando o código da forma como está abaixo ele envia para o google search o seguinte texto:

"carro" "elétrico" "gasolina" "diesel"

Sendo que a palavra (carro) é a palavra que o usuário vai inserir no formulário. Então quando ele manda para o google, o sinal de + entre as palavras não aparece.

Código: Selecionar todos

Option Explicit

Private Pagina As String

Public Declare PtrSafe Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lparameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Sub NewShell(cmdLine As String, lngWindowHndl As Long)

ShellExecute lngWindowHndl, "Open", cmdLine, "", "", 1

End Sub

Public Sub Abrir()

Dim Pesquisa As String
Dim Termos As String

Pesquisa = UserForm1.TextBox1
Termos = " ''eletrico''+''gasolina''+''diesel''"

Let Pagina = ("https://www.google.com.br/search?q=") & Pesquisa & Termos

Call NewShell(Pagina, 1)

End Sub

Grato desde já

[webmaster]

Substituí o userform por um Inputbox para ficar mais fácil para mim. Ficou assim:

Código: Selecionar todos

Public Sub Abrir()

Dim Pesquisa As String
Dim Termos As String

Pesquisa = InputBox("Parametro", "Titulo", "Sua busca aqui")
Termos = "+eletrico+gasolina+diesel"

Let Pagina = ("https://www.google.com.br/search?q=") & Pesquisa & Termos

Call NewShell(Pagina, 1)

End Sub

Espero que ajude