Save in the RTF Format. Amongst Others (Optional)

[wowinyou]

wasn't here for a Small amount of time

Hello,

I am making a Thing which has Multiple Formats. I cannot save the Formats with TXT.
Is there any other Format and how do i Export as "Said" Format?
The Code i made already to Export is going to be here:

Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click
        SaveFileDialog1.Filter = "Textdatei(*.txt) | *.txt | Alle Endungen | *.*| RichTextDatei | *.rtf"
        SaveFileDialog1.ShowDialog()

        Dim Location As String

        Location = SaveFileDialog1.FileName

        My.Computer.FileSystem.WriteAllText(Location & ".txt", "" & ".rtf" & RichTextBox1.Text, True)
    End Sub

Thanks for Answers (They are Welcome),

wowinyou