VBA Smart Quotes Replace to HTML

Blogger ate up my HTML and won't show the character formatting:
Single Quote = & #39;
Double Quote = & #34;
Section = & sect;

Function CleanQuotesToHtml(strContent As String) As String
' SINGLE QUOTES
strContent = Replace(strContent, "'", "")
strContent = Replace(strContent, ChrW(8216), "")
strContent = Replace(strContent, ChrW(8217), "")
' DOUBLE QUOTES
strContent = Replace(strContent, """", "")
strContent = Replace(strContent, ChrW(8220), "")
strContent = Replace(strContent, ChrW(8221), "")
' SECTION CHARACTER
strContent = Replace(strContent, Chr(167), "")
CleanQuotesToHtml = strContent
End Function