Private Function ReplaceRtfFullQuotes(ByVal TextRTF As String) As String
Dim sText As String
sText = Replace(TextRTF, "\ldblquote ", "“")
sText = Replace(sText, "\ldblquote", "“")
ReplaceRtfFullQuotes = Replace(sText, "\rdblquote", "”")
Dim sText As String
sText = Replace(TextRTF, "\ldblquote ", "“")
sText = Replace(sText, "\ldblquote", "“")
ReplaceRtfFullQuotes = Replace(sText, "\rdblquote", "”")
End Function
RichTextBox.TextRTF = ReplaceRtfFullQuotes(sTextRTF)