Questa funzione permette di eliminare tutti i tag html da un testo:

Function CleanHtml(ByVal html As String) As String
        html = html.Replace(">", "> ")
        Dim doc = New HtmlAgilityPack.HtmlDocument()
        doc.LoadHtml(html)

        Dim text As String = HttpUtility.HtmlDecode(doc.DocumentNode.InnerText)
        Return Regex.Replace(text, "\s+", " ").Trim()
End Function

Per il corretto funzionamento, occorre inserire nella cartella Bin del progetto, la dll allegata al post