How can you create a list that contains all items that are bolded in a webbrowser?

For example..

if the webbrowser contains:
<b>Hello</B><font...><a href = "blah blah"></a><B>Test<a href=www.download.com></a></b>

then the listbox will contain
Hello
Test<a href=www.download.com></a>


and any more areas that are bolded..

anyone know how to do this?

TheHTML = UCase(TheHTML)
start = 1
do until instr(start,TheHTML,"<B>") = 0
a = instr(start,TheHTML,"<B>") + 3
b = instr(b,TheHTML,"</B>) - a
start = a + b
List1.AddItem Mid(TheHTML,a,b)
loop

tell me if it works or not, because you have the tendency to never reply back if the code is correct, which makes us confused if you actually read the message or not, and makes us wondered if we typed the code in vain.....

lol :)

the code worked perfectly, thanks a lot :D

just had to change b = instr(b,TheHTML,"</B> ) - a
to

b = InStr(a, thehtml, "</B>") - a