До запись в начало файла IO.File.AppendAllText("Path.txt", TextBox1.Text, System.Text.Encoding.Default)

 IO.File.AppendAllText("Path.txt", TextBox1.Text, System.Text.Encoding.Default)

Using reader As New StreamReader("file.txt", Encoding.GetEncoding(1251))
End Using

Imports Ude
 
Function DetectEncodingWithUde(filePath As String) As Encoding
    Dim bytes As Byte() = File.ReadAllBytes(filePath)
    
    Dim detector = New CharsetDetector()
    detector.Feed(bytes, 0, bytes.Length)
    detector.DataEnd()
    
    If detector.Charset IsNot Nothing Then
        Try
            Return Encoding.GetEncoding(detector.Charset)
        Catch
            Return Encoding.Default
        End Try
    End If
    
    Return Encoding.Default
End Function

Function DetectEncoding(filePath As String) As Encoding
    ' Сначала пробуем автоопределение StreamReader
    Try
        Using reader As New StreamReader(filePath, Encoding.Default, detectEncodingFromByteOrderMarks:=True)
            reader.Peek()
            If reader.CurrentEncoding IsNot Nothing AndAlso reader.CurrentEncoding <> Encoding.Default Then
                Return reader.CurrentEncoding
            End If
        End Using
    Catch
    End Try
 
    ' Основные кодировки для кириллицы
    Dim encodings As Encoding() = {
        Encoding.UTF8,
        Encoding.GetEncoding(1251),    ' Windows-1251
        Encoding.GetEncoding("koi8-r") ' KOI8-R
    }
 
    For Each enc In encodings
        Try
            Dim content As String = File.ReadAllText(filePath, enc)
            ' Если нет символов замены и есть кириллица - считаем что нашли
            If Not content.Contains("�"c) AndAlso ContainsCyrillic(content) Then
                Return enc
            End If
        Catch
        End Try
    Next
 
    ' Последняя попытка - UTF-8 без BOM
    Try
        Dim content As String = File.ReadAllText(filePath, Encoding.UTF8)
        If Not content.Contains("�"c) Then
            Return Encoding.UTF8
        End If
    Catch
    End Try
 
    Return Encoding.Default
End Function
 
Private Function ContainsCyrillic(text As String) As Boolean
    For Each c As Char In text
        If (c >= "А"c AndAlso c <= "я"c) OrElse c = "Ё"c OrElse c = "ё"c Then
            Return True
        End If
    Next
    Return False
End Function