Captura Dados Internet

Bom dia!

Estou criando uma função para capturar informações de filmes de um site.
Esse VBA funciona perfeitamente no Excel, mas eu gostaria de colocar ele no Access.
Tenho uma tabela no Access chamada MSC e um chamado filme em formato texto que consta as informações que deveriam ser imputadas no site e um campo chamado detalhes formato texto que deveria trazer as informações do site.
Vocês poderiam me ajudar a arrumar esse VBA para trazer as informações para minha tabela.
Segue abaixo o VBA.

Sub BuscaDados()
Dim ie As Object
Dim alin As Long
Dim sFilme As String
iLin = 2
'Busca dados da internet
Set ie = CreateObject("internetexplorer.application")
ie.Visible = False
'Vai para página que quer capturar
sFilme = Replace(Range("b1").Text, " ", "+")
ie.navigate "http://www.adorocinema.com/busca/?q=" & sFilme
Do While ie.busy
Loop
'Seta a tabela onde estão as informações
Set Tabela = ie.Document.all.tags("tr")
For i = 0 To Tabela.Length - 1
sFilme = Replace(Tabela.Item(i).innerText, Chr(10), "")
If Not IsNumeric(Left(sFilme, 1)) Then
If sFilme <> "" Then
Cells(iLin + 1, "A").Value = sFilme
iLin = iLin + 1
End If
End If

Next
____

Grata

Patrícia Batista

Bom amigo o bom seria vc colocar a planilha para poder ver
porque ai
sFilme = Replace(Range("b1").Text, " ", "+") b1 ta referenciando uma celula do excel.
Posta ela toda pra poder ver