VB Remove carriage return and tab in html, convert part of HTML uppercase tag to lowercase

'//remove all kinds of carriage return whitespace

Public Function replaceenter (bStr as String)

BSTR = Replace (bstr, "" , " ")

BSTR = Replace (bstr, vbTab, "")

BSTR = Replace (bstr, vbCrLf, "")

BSTR = Replace (bstr, chr + chr, "")

BSTR = Replace (bstr, Chr, "")

BSTR = Replace (bstr, Chr), "")

Replaceenter = BStr

End Function

'//page label changed to lowercase

Public Function Htmllabletosmall (strhtml as String)

strhtml = Replace (strhtml, "<a", "<a")

strhtml = Replace (strhtml, "</a", "</a")

strhtml = Replace (strhtml, "<span", "<span")

strhtml = Replace (strhtml, "</span", "</span")

strhtml = Replace (strhtml, "<div", "<div")

strhtml = Replace (strhtml, "</div", "</div")

strhtml = Replace (strhtml, "<ul", "<ul")

strhtml = Replace (strhtml, "</ul", "</ul")

strhtml = Replace (strhtml, "<li", "<li")

strhtml = Replace (strhtml, "</li", "</li")

strhtml = Replace (strhtml, "<img", "

strhtml = Replace (strhtml, "</img", "</img")

strhtml = Replace (strhtml, "<p", "<p")

strhtml = Replace (strhtml, "</p", "</p")

strhtml = Replace (strhtml, "<strong", "<strong")

strhtml = Replace (strhtml, "</strong", "</strong")

strhtml = Replace (strhtml, "<em", "<em")

strhtml = Replace (strhtml, "</em", "</em")

strhtml = Replace (strhtml, "<dl", "<dl")

strhtml = Replace (strhtml, "</dl", "</dl")

strhtml = Replace (strhtml, "<dd", "<dd")

strhtml = Replace (strhtml, "</dd", "</dd")

strhtml = Replace (strhtml, "<dt", "<dt")

strhtml = Replace (strhtml, "</dt", "</dt")

strhtml = Replace (strhtml, "<b", "<b")

strhtml = Replace (strhtml, "</b", "</b")

Htmllabletosmall = strHTML

End Function

VB Remove carriage return and tab in html, convert part of HTML uppercase label to lowercase