How to get RTF data from A RichTextBox in vb.net

This example shows how to get rtf data from a RictTextBox control using vb.net. This example requires a RichTextBox control named RichTextBox1 and one button control named Button1. Check this example :

Private Sub Button1_Click(ByVal sender As System.Object,
                              ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String = "Welcome to Author Code"
        RichTextBox1.Text = str
        RichTextBox1.Select(0, 7)
        RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Bold)
        RichTextBox1.SelectionColor = Color.Red
        Dim rtfdata As String = ""
        rtfdata = RichTextBox1.Rtf
        MessageBox.Show(rtfdata)
End Sub