При сохранении массива в файл теряется кодировка

Public Class Form1
    Dim MassivText(5) As TextBox
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Создаем массив TextBox
        For i = 0 To 5
            MassivText(i) = New TextBox
            With MassivText(i)
                .Text = "Текст №" & Str(i)
                .TextAlign = ContentAlignment.TopCenter
                .Top = 26
                .Left = 10 + 110 * i
                .Width = 100
                .Height = 34
            End With
            Me.Controls.Add(MassivText(i))
        Next i
    End Sub
 
    'Сохраняем массив в файл
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim MassivStr(5) As String
 
        For i = 0 To 5
            MassivStr(i) = MassivText(i).Text
        Next
        IO.File.WriteAllLines("Path.txt", MassivStr)
    End Sub
    ' Считываем массив из файла
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim MassivStr() As String = IO.File.ReadAllLines("Path.txt", System.Text.Encoding.Default)
        For i = 0 To 5
            MassivText(i).Text = MassivStr(i)
        Next
    End Sub
End Class

Dim MassivStr() As String = IO.File.ReadAllLines("Path.txt", System.Text.Encoding.Default)

Dim MassivStr() As String = IO.File.ReadAllLines("Path.txt", System.Text.Encoding.UTF8)