Untitled

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim RTFText As String = RichTextBox1.Text
        If RTFText.Trim() <> String.Empty Then
            sfdRTF.Filter = "RTF Files *.rtf|All files *.*"
            sfdRTF.OverwritePrompt = True
            sfdRTF.RestoreDirectory = True
            Dim drSave As DialogResult = sfdRTF.ShowDialog()
            If drSave = DialogResult.OK Then
                Dim filename As String = sfdRTF.FileName

                Dim stream_writer As StreamWriter
                stream_writer = File.CreateText(filename)
                stream_writer.WriteLine(RTFText)
                stream_writer.Close()
            End If

        End If
    End Sub
End Class