Parsa text

Jag försöker att göra en söksida som bygger på google.

Jag har lyckats att ta bort lite onödigt i texten och nu har jag detta kvar.

Hur skall jag göra så att jag får all information (titeln på sidorna, adressen samt förklaringen) så att jag kan skriva ut det på min sida. Hur skall jag göra för att få bort all anann onödig text?

Antar att det är regular expressions man skall använda, men jag är inte så superbra på det. Jag hittar inte heller något direkt mönster man kan använda sig utav.

Någon som har något kodexempel som gör något liknande?

Function google(mess)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

objRegExp.Pattern = "<title>(.*?)</title>"
mess = objRegExp.Replace(mess,"$1")

google = mess
End Function

kan du tex köra... fast jag tror det skulle bli enklare med replace?