Es muy simple de hacer que con sólo unas pocas líneas de código. Aquí está cómo:

Private Function RemoveHTML(ByVal str As String) As String
Dim RegExp As String = "<[^>]*>"
Dim R As New Regex(RegExp)
Return R.Replace(str, " ")
End Function


Y puede obtener el "claro" para la cadena de la etiqueta de control (por ejemplo):

Label1.Text = RemoveHTML(TextBox1.Text)