неверный результат символа после прочтения Zürich VB.net

У меня возникла проблема с написанием строки, похожей на слово «Цюрих», вывод стал «Цюрих».

Я использую StreamReader и StreamWriter.

Любой может помочь мне с этим.

Код: ниже

Imports System
Imports System.IO
Imports System.Text
Module Module1

    Sub Main()
        Dim sReport As String       
        Dim strline As String
        Dim objSR As StreamReader
        Dim objSW As StreamWriter
        sReport = "C:\InvalidChar1.txt"
        Try

            objSW = New StreamWriter(sReport)

            objSR = New StreamReader("C:\InvalidChar.txt")

            Do
                strline = objSR.ReadLine

                objSW.WriteLine(strline)

            Loop While objSR.EndOfStream <> True


            objSW.Close()
            objSR.Close()

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

End Module