Find søgeresultatslinks ved Google

Hejsa. Jeg er igang med at lave noget søgehalløj til Google i VB 6.

Problemet er, at jeg ikke kan fange de links som jeg skal bruge som Google finder.

Min variabel "hmm" indenholder alt HTML som Google nu finder.

Jeg har prøvet følgende (dog uden held) ..

------

findstr = "return gnb._add(this, '"

startpos = InStr(hmm, findstr) + Len(findstr)
slutpos = InStr(startpos, hmm, "'")

If slutpos Then
      GoogleLink = Mid(hmm, startpos, slutpos - startpos)
End If

Msgbox GoogleLink

------
Håber nogle kan hjælpe mig..