Неверная кодировка при сохранении в файл - Visual Basic .NET - Ответ 970906

ublic Class Form1
    Dim Файл As String
    Public Sub АссоциацияФайлов(ByVal Расширение As String, ByVal ПутьКФайлу As String)
        Dim Our_SubKey As String = (Strings.Left(My.Computer.Registry.Users.GetSubKeyNames(6), Len(My.Computer.Registry.Users.GetSubKeyNames(6)) - 8))
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\." & Расширение, "", Расширение & "file")
        My.Computer.Registry.SetValue("HKEY_USERS\" & Our_SubKey & "\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\." & Расширение, "Application", ПутьКФайлу)
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\DefaultIcon", "", ПутьКФайлу & ", 0")
    End Sub
    Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click
        Dim Блокнот As New SaveFileDialog
        Блокнот.Filter = "RTF-файлы|*.RTF|Текстовые файлы|*.txt"
        If Блокнот.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Файл = Блокнот.FileName
        If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
            RichTextBox1.SaveFile(Файл)
        ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
            RichTextBox1.SaveFile(Файл, RichTextBoxStreamType.PlainText)
        End If
 
    End Sub
 
    Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click
        Dim Блокнот1 As New OpenFileDialog
        Блокнот1.Filter = "RTF-файлы|*.RTF|Текстовые файлы|*.txt|"
        Блокнот1.Title = "Сохранить файл "
        Блокнот1.CheckPathExists = True
        If Блокнот1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Файл = Блокнот1.FileName
            If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
                RichTextBox1.LoadFile(Файл)
            ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
                RichTextBox1.LoadFile(Файл, RichTextBoxStreamType.PlainText)
            Else
                MsgBox("Не могу открыть файл такого формата")
            End If
        End If
 
    End Sub
 
    Private Sub ОчиститьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОчиститьToolStripMenuItem.Click
        RichTextBox1.Text = Nothing
 
    End Sub
 
    Private Sub ШрифтToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ШрифтToolStripMenuItem.Click
        If FontDialog1.ShowDialog() = DialogResult.OK Then
            RichTextBox1.SelectionFont = FontDialog1.Font
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Файл = Strings.Mid(Command(), 2, Len(Command()) - 2)
            If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
                RichTextBox1.LoadFile(Файл)
            ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
                RichTextBox1.LoadFile(Файл, RichTextBoxStreamType.PlainText)
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class