RegExp: aiuto!!!

[Gamma]

Ciao a tutti
Sto creando una funzioncina-ina-ina che mi indichi se in una stringa è presente del testo compreso tra i tag e .
Cioè:

pippo pippo pippo pippo pippo ----> trovato
pippo pippo pippo pippo pippo ----> non trovato

ma non riesco a trovare il pattern corretto :
-------------------------------------------------------
Function Check_For_Bold(STRINGA)

Dim expr_reg, risultato

Set expr_reg = CreateObject("VBScript.RegExp")
expr_reg.Global = True
expr_reg.IgnoreCase = True
pattern_bold = "*"
expr_reg.Pattern = pattern_bold
if expr_reg.Test(STRINGA) = true then
str_risultato= "trovato"
else
str_risultato= "non trovato"
end if

Set expr_reg = Nothing
Check_For_Bold= str_risultato

End Function

[Gamma]

forse ho risolto:

il pattern corretto è forse "\<[^\>]*\b>" ?