Public Shared Function StripOutRichText(ByVal inputText As String) As String
If inputText.StartsWith("{\rtf") Then
Dim worker As New RichTextBox()
worker.Rtf = inputText
Return worker.Text
End If
Return inputText
End Function