VBA pesquisa no google

[fertelance]

Boa noite jovens... Sou um jovem aprendiz, gostaria de auxilio para a seguinte questão... Criei um VBA (simples) para pesquisa no google. A pesquisa precisa ser com mais de um termo, exemplo de pesquisa: "carro"+"gasolina"+"diesel". Criei um formulário para inserir o termo "carro" como no exemplo, e uma variável com os termos para pesquisa, porém não consegui enviar o símbolo + (soma) entre os termos, ele simplesmente não aparece quando a macro executa, a pesquisa do google abre preenchido da seguinte forma: "carro" "gasolina" "diesel", sem o sinal de soma (+) entre os termos. Gostaria de um auxilio nesse ponto. Grato desde já. 

[Basole]

Mostre o que voce já fez 

[fertelance]

4 horas atrás, Basole disse:

Mostre o que voce já fez 

Prezado Basole... segue... Grato.

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 = " ''gasolina'' ''diesel'' ''eletrico'' "

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

Call NewShell(Pagina, 1)

End Sub
 

 

 

 

[Basole]

Já tentou destaforma:

Termos = "gasolina,diesel,eletrico"
Termos = VBA.Replace(Termos, ",", "+")

 

[fertelance]

11 horas atrás, Basole disse:

Já tentou destaforma:

Termos = "gasolina,diesel,eletrico"
Termos = VBA.Replace(Termos, ",", "+")

 

Tentei... não funcionou. Mas em cima dessa sua resposta vou tentar trabalhar e descobrir. Grato mais uma vez.