Dim html As String = "<p>123434<p>werieur<p><br/><br><br><P>343"
Dim strText As String = System.Text.RegularExpressions.Regex.Replace(html, "<br[/]*>|<p>", vbcrlf, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Return strText