Чтение/запись файла в кодировке по умолчанию

Public Class Form1
    Public Structure wer
        Dim familia As String
        Dim strana As String
        Dim trener As String
        Dim god As Integer
        Dim itog As Integer
    End Structure
    Dim fFile, s, prt(99), a As String
    Dim Mas(99) As wer
    Dim n, m, i, x, z As Integer
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        n = InputBox("Введите количество спортсменов")
        For i = 1 To n
            Mas(i).familia = InputBox("Введите фамилию спортсмена")
            '   RichTextBox1.Text += "спортсмен: " & Mas(i).familia
            Mas(i).strana = InputBox("Введите название страны")
            ' RichTextBox1.Text += ", страна: " & Mas(i).strana
            Mas(i).trener = InputBox("Введите фамилию тренера")
            '  RichTextBox1.Text += ", тренер: " & Mas(i).trener
            Mas(i).god = InputBox("год рождения")
            '   RichTextBox1.Text += ", год: " & Mas(i).god
            Mas(i).itog = InputBox("место в турнире")
            '  RichTextBox1.Text += ", место: " & Mas(i).itog & vbCrLf
        Next
        SaveFileDialog1.Filter = "text files (*.txt)|*.txt"
        SaveFileDialog1.ShowDialog()
        fFile = SaveFileDialog1.FileName
        System.IO.File.WriteAllText(fFile, RichTextBox1.Text)
    End Sub
    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        OpenFileDialog1.ShowDialog()
        i = 0
        n = 1
        z = 1
        x = 1
        RichTextBox1.Text = ""
        fFile = FreeFile()
        FileOpen(fFile, OpenFileDialog1.FileName, OpenMode.Input)
 
        While Not EOF(fFile, )
            s = LineInput(fFile)
            For i = 0 To s.Length - 1
                If s(i) = " " Then
                    prt(x) = i
                    x = x + 1
                End If
            Next
 
            Mas(z).familia = s.Substring(0, prt(1))
            Mas(z).strana = s.Substring(prt(1) + 1, prt(2) - 1 - prt(1))
            Mas(z).trener = s.Substring(prt(2) + 1, prt(3) - 1 - prt(2))
            Mas(z).god = Val(s.Substring(prt(3) + 1, prt(4) - 1 - prt(3)))
            a = s.Length - (prt(5) + 1)
            Mas(z).itog = Val(s.Substring(prt(4) + 1, a))
 
            n = n + 1
            z = z + 1
        End While
        For i As Integer = 1 To n - 1
            RichTextBox1.Text += "спортсмен: " & Mas(i).familia
            RichTextBox1.Text += ", страна: " & Mas(i).strana
            RichTextBox1.Text += ", тренер: " & Mas(i).trener
            RichTextBox1.Text += ", год рождения: " & Mas(i).god
            RichTextBox1.Text += ", место: " & Mas(i).itog & vbCrLf
        Next
        FileClose(fFile)
    End Sub
End Class

        Dim OFD As New OpenFileDialog With {.Filter = "Выберите файл|*.*", .Title = "Выберите файл"}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            RichTextBox1.LoadFile(OFD.FileName, RichTextBoxStreamType.PlainText)
        End If

System.IO.File.WriteAllText(fFile, RichTextBox1.Text)

System.IO.File.WriteAllText(fFile, RichTextBox1.Text, System.Text.Encoding.Default)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.IO.File.WriteAllText("C:\111111RTB.txt", RichTextBox1.Text, System.Text.Encoding.Default)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text = System.IO.File.ReadAllText("C:\111111RTB.txt", System.Text.Encoding.Default)
    End Sub