Ta bort HTML taggar med RegExp

Hej,
Jag vill ta bort alla html-taggar ur en textsträng och har kommit över koden:

Function RemoveHTML(myString)
	Dim objRegExp
	Set objRegExp = New RegExp
	objRegExp.Global = True
	objRegExp.Pattern = "<[^>]*>"
	RemoveHTML = objRegExp.Replace(myString,"")
	Set objRegExp = Nothing
End Function

Men den verkar inte riktigt fungera det tar bort allt, d.v.s jag får tillbaka en tom sträng!!!

Vad göra?