Solved VS2022, how can I read properly unicode from a file into a string? So far everything converts to ansi

        Dim fileReader As System.IO.StreamReader
        fileReader = My.Computer.FileSystem.OpenTextFileReader(FilenameToBreak)
        Dim stringReader As String
        stringReader = fileReader.ReadToEnd()

   Dim content As string = IO.File.ReadAllText(FilenameToBreak)

 Dim content As String = IO.File.ReadAllText(FilenameToBreak, System.Text.Encoding.GetEncoding(1252))

" ChrW(31) & "aHur mår du?Hur är läget?FörlåtHejdå" & ChrW(30) & "  " & ChrW(31) & "aHur är läget?Hur mår du?FörlåtHur mår du?Förlåt" & ChrW(30) & "  " & ChrW(31) & "a85843322572" & ChrW(30) & ChrW(29)

        Dim fileReader As System.IO.StreamReader
        fileReader = My.Computer.FileSystem.OpenTextFileReader(FilenameToBreak, System.Text.Encoding.UTF8)
        Dim stringReader As String
        stringReader = fileReader.ReadToEnd()

?stringreader
"""aHur mår du?Hur är läget?FörlåtHejdå  圖圖3解弓月金難手中大""

Dim content As String = IO.File.ReadAllText(FilenameToBreak, System.Text.Encoding.UTF8)

  Private Sub tester()
      Dim path As String = "c:\temp\MyTest.txt"
      Try
          If File.Exists(path) Then
              File.Delete(path)
          End If

          'Use an encoding other than the default (UTF8).
          ' Dim sw As StreamWriter = New StreamWriter(path, False, New UnicodeEncoding())
          Dim sw As StreamWriter = New StreamWriter(path, False, New UTF8Encoding())

          sw.WriteLine("This")
          sw.WriteLine("is some text")
          sw.WriteLine("to test")
          sw.WriteLine("Reading")
          sw.Close()

          Dim sr As StreamReader = New StreamReader(path, True)

          Do While sr.Peek() >= 0
              Console.Write(Convert.ToChar(sr.Read()))
              Debug.WriteLine(Convert.ToChar(sr.Read()))
          Loop

          'Test for the encoding after reading, or at least
          'after the first read.

          Debug.Print("The encoding used was {0}.", sr.CurrentEncoding)
          'Console.WriteLine()

          sr.Close()
      Catch e As Exception
          'Console.WriteLine("The process failed: {0}", e.ToString())
          Debug.Print("The process failed: {0}", e.ToString())
      End Try
  End Sub

    Private Sub tester(FileName As String)
        Dim path As String = "c:\temp\MyTest.txt"
        Try
       
            '********************************************************************
            Dim sr As New StreamReader(FileName, True)
            Dim Countchars As Integer
            Do While sr.Peek() >= 0
                'Debug.Write(Convert.ToChar(sr.Read()))
                Countchars += 1
                If Countchars > 1000 Then Exit Do
            Loop
            Debug.WriteLine(" ")

            'Test for the encoding after reading, or at least
            'after the first read.

            Debug.Print("The encoding used was {0}.", sr.CurrentEncoding)
            Debug.WriteLine(" ")

            sr.Close()
        Catch e As Exception

            Debug.Print("The process failed: {0}", e.ToString())
            Debug.WriteLine(" ")
        End Try

 T h i s
 
 i s   s o m e   t e x t
 
 t o   t e s t
 
 R e a d i n g

file created as           >  the reported result is

New UTF7Encoding())       > The encoding used was System.Text.UTF8Encoding.
New UTF8Encoding())       > The encoding used was System.Text.UTF8Encoding.
New UnicodeEncoding())    > The encoding used was System.Text.UnicodeEncoding.
New UTF32Encoding())      > The encoding used was System.Text.UTF32Encoding.