FormatingTextcontent

Private Function RaviformatTextcontent(ByVal Body As String) As String
Dim bodyText As String

bodyText = Body
bodyText = Replace(bodyText, "." & Chr(13) & Chr(10), ".

")
bodyText = Replace(bodyText, "." & Chr(13) & Chr(10) & Chr(32) & Chr(32), ".

")
bodyText = Replace(bodyText, ":" & Chr(13) & Chr(10) & Chr(32) & Chr(32), ":

")
bodyText = Replace(bodyText, "?" & Chr(13) & Chr(10) & Chr(32) & Chr(32), "?

")
bodyText = Replace(bodyText, """" & Chr(13) & Chr(10) & Chr(32) & Chr(32), """

")
'bodyText = Replace(bodyText, Chr(13) & Chr(10) & Chr(32) & Chr(32) & """", "

""")
bodyText = Replace(bodyText, "." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(32), ".

")
bodyText = Replace(bodyText, ":" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(32), ":

")
bodyText = Replace(bodyText, "?" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(32), "?

")
bodyText = Replace(bodyText, "-" & Chr(13) & Chr(10), "")

FormatArticleBody = bodyText
End Function