[RESOLVED] Grab Links from Webpage

[Spoo]

RS

Maybe something like this:

Text2.Text = WebBrowser1.Document.documentelement.innerhtml
FindText = Split(Text2.Text, vbCrLf)  ' uses vbCrLf instead of what you had
nn = UBound(FindText)                 ' num elements in array FindText
tagb = "<IMG"                         ' begin tag
tage = "</IMG"                        ' end tag
For ii = 0 to nn
    b = InStr(UCase(FindText, tagb)   ' beginning pos of tagb
    e = InStr(UCase(FindText, tage)   ' beginning pos of tage
    If b > 0 Then                     ' only interested if have tagb in this given string
        < code parse based on b and e >
    End If
Next ii

Does this get you started?
FWIW, I noticed that tags seem to use "<" instead of "[".

EDIT:
As you may have guessed, I'm not too familiar with html codes.
Looks like I was wrong:

Replace: tagb = "<IMG"
.... with: tagb = "[IMG"

... and ditto with tage

Spoo