Visual Basic-Find All Words In String

Find All Words In String

Agar Coding dibawah ini dapat berjalan dengan baik, hilangkan tanda '<' & '>' yang berwarna Biru.

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