Acentos de Archivo

Saludos a Todos

Este es mi Hallow World, para precosar mi nivel de ignorancia, aunque
vengo
desde
Visual Basic 1.0

Excluyo las declaraciones de Vars

Este es mi código

With ArcDlg
.InitialDirectory = "c:\"
.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
.FilterIndex = 2
.RestoreDirectory = True

If .ShowDialog() = Windows.Forms.DialogResult.OK Then
Path = .FileName
If Len(Path) = 0 Then Exit Sub

PathArc.Text = Path

' Open the file to read from.
Dim sr As IO.StreamReader = File.OpenText(Path)
Texto = sr.ReadToEnd()
sr.Close()
End If
End With

Y este es el Resultado en Texto

SEGISMUNDO (de la Vida es Sueño)

Ay msero de m!
Y ay infelice!
Apurar, cielos, pretendo
ya que me tratis as,
qu delito comet
contra vosotros naciendo;
aunque si nac, ya entiendo
qu delito he cometido.
Bastante causa ha tenido
vuestra justicia y rigor;
pues el delito mayor
del hombre es haber nacido

Si observan el Texto verán que desaparecieron TODOS LAS LETRAS CON ACENTO

Si alguien me pudiera iluminar antes de cortarme las venas...

No sé por donde buscar