Hello,


Code:
lngPlace = 1
                Do Until lngPlace = 0
                    lngPlace = InStr(lngPlace, Packet, "<a href=", vbTextCompare)
                        HAXXX = lngPlace + 8
                        lngPlace = lngPlace + 1
                        lngLength = InStr(HAXXX + 1, Packet, ">", vbTextCompare)
                        lngLength = lngLength - HAXXX
                        strUrl = RemoveFlack(Mid$(Packet, HAXXX, lngLength)) 'grab url
                        Text1.Text = Text1.Text & vbNewLine & strUrl 'add both to list
                    X = X + 1
                Loop
That is pritty much my loop, but I'm having trouble making it realize when to stop looping, could anybody help me?