Public Shared Function RemoveHTMLTags( _
	ByVal strText As String, _
	Optional ByVal strDelimiter As String = "|") _
	As String
    
	Return Regex.Replace(strText, "<(.|\n)+?>", strDelimiter)
End Function

strData = RemoveHTMLTags("<td>1</td><td>2</td><td>3</td>")

strData equals "1|2|3"