Cómo Cambiar Codificación Archivo TXT

[Stream]

Código:

     'Introducir aquí el código de usuario para inicializar la página
        Dim tr As System.IO.StreamReader
        tr = New System.IO.StreamReader("c:\archivo.xml")

        Dim r As New System.IO.StreamWriter("c:\archivo_utf8.xml", False, System.Text.Encoding.UTF8)

        Dim strLine As String
        strLine = tr.ReadLine
        Do While Not strLine Is Nothing
            r.WriteLine(strLine)
            strLine = tr.ReadLine
        Loop
        tr.Close()
        r.Close()

Saludos