Retirar informação de pagina na Net

Não queria incomudar mais mas se fosse possível poderiam ajuar-me noutra questão? é que eu queria um código onde consegui ir a uma página da internet e tirar, por exemplo todos os títulos de filmes em estreia... Eu consegui cuidar o código de forma a tirar bem o primeiro título mas nao consigo que tire os outros títulos da página...

O código qu eeu fiz foi:

Function obtemdados() As String

Dim oXMLHTTP As Object, vFF As Long, Resp As String
Dim db As Database
Dim rs As Recordset

vWebFile = "http://cinema.sapo.pt/estreias/2013/05"

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")

oXMLHTTP.Open "GET", vWebFile, False

oXMLHTTP.Send

Do While oXMLHTTP.ReadyState <> 4

DoEvents

Loop

obtemtitulo = Mid(oXMLHTTP.responsetext, InStr(oXMLHTTP.responsetext, "originalTitle") + Len("originalTitle<>"), InStr(oXMLHTTP.responsetext, "ieFixDummyClass") - InStr(oXMLHTTP.responsetext, "originalTitle") - Len("