Web browser

buenas tardes,

tengo el siguiente código:

'---------------------------------------------------'

'--OPTION EXPLICIT--------------------------'

'---------------------------------------------------'

'

Option Explicit

Dim tWebBrowser As Object

'

'---------------------------------------------------'

'--NAVEGADOR (CONSULTAR SALDOS

'--BANCARIOS)---------------------------------'

'---------------------------------------------------'

'

Private Sub Worksheet_Activate()

Range("C10").Select

If Range("D3").Value <> "" Then

If IsNull(Range("D3").Value) Then Range("D3").Value = "Banco online sin comisiones para Particulares y Negocios - ING DIRECT"

Set tWebBrowser = Sheets("NAVEGADOR").OLEObjects.Add(ClassType:="Shell.Explorer.2", _

Link:=False, _

DisplayAsIcon:=False, _

Left:=78, Top:=228.75, _

Height:=560, Width:=690)

tWebBrowser.Object.Navigate Range("D3").Value

tWebBrowser.Object.Refresh

End If

End Sub

La celda Range("D3").Value tiene el siguiente valor "Banco online sin comisiones para Particulares y Negocios - ING DIRECT"

El problema es que no muestra nada de nada, no carga. ¿Quién puede ayudarme o en su defecto indicarme donde puedo encontrar alguna documentación?

Un saludo y gracias

Javier