Sub RemoveTags(Text As String) As String
Dim Pattern, Replacement As String
Dim m As Matcher
Pattern = "<[^>]*>"
Replacement = " "
m = Regex.Matcher2(Pattern, Regex.CASE_INSENSITIVE, Text)
Dim r As Reflector
r.Target = m
Return r.RunMethod2("replaceAll", Replacement, "java.lang.String")
End Sub