Hm, veja se este link te ajuda:

http://excelevba.com.br/vba-internet/

Boa tarde

Obrigado pela ajuda gtsalikis, mas esta a dar erro nesta linha e não abre a pagina, o que sera?
acesso = scriptinternet(0, "open", "www.google.com.br")

Private Declare Function scriptinternet _
Lib "shell32.dll" Alias "shellexecutea" (ByVal hwnd As Long, _
ByVal operation As String, ByVal filename As String, _
Optional ByVal parameters As String, Optional ByVal directory As String, _
Optional ByVal windowstyle As Long = vbMinimizedFocus) As Long

Public Sub openurl()
Dim iacesso As Long
iacesso = scriptinternet(0, "open", "www.google.com.br")
End Sub

Boa tarde!!

Por favor leia:
http://www.macoratti.net/13/03/vb6_webb.htm
Tente adaptar.
Não testado!!

Private Sub Command1_Click()
    Dim strfindword As String
        strfindword = InputBox("O que deseja procurar?", "Pesquisa", "")
            If WebPageContains(strfindword) = True Then
                MsgBox "Texto encontrado"
            Else
                MsgBox "Texto não encontrado"
            End If
End Sub
Private Function WebPageContains(ByVal s As String) As Boolean
    Dim i As Long, EHTML
    For i = 1 To WebBrowser1.Document.All.Length
        Set EHTML = _
        WebBrowser1.Document.All.Item(i)
 
 
        If Not (EHTML Is Nothing) Then
            If InStr(1, EHTML.innerHTML, _
            s, vbTextCompare) > 0 Then
            WebPageContains = True
            Exit Function
        End If
    End If
Next i
End Function
Private Sub Form_Load()
    WebBrowser1.Navigate2 "www.google.com"
End Sub

Att

Obrigado pelas dicas Alexandre. Consegui resolver com a consulta do site indicado, faltava o Microsoft internet controls

Bom dia!!

Eu fico feliz por ajudar...

Att

jrm, boa tarde!

Segue anexo mais um exemplo que poderá incluir no seu trabalho caso seja útil.
Esse modelo tenho há muito tempo. Por isso, peço desculpas por não poder dar os créditos por esse trabalho ao seu criador!

Esse exemplo dá a opção de incluir uma URL tanto para abrir uma página de um site, bem como também, para abrir uma pasta do seu computador(C:, D:, Meus Documentos, Meu computador...).

Att,

[resolvido]

Agradeço a ambos a grande ajuda.
tenho um novo tópico par uns filtros se poderem dar mais uma ajuda agradeço muito, neste projecto falta-me apenas este filtro e uma forma de guardar o Historico de alterações, se tiverem alguns exemplos ou poderem dar umas dias agradeço tambem