Problema con caracteres con "Acentos" en StreamReader

[Skeletron]

Hola gente..
Les comento que estoy leyendo un .txt linea por linea de la siguiente manera:

Código (vbnet) [Seleccionar] Expandir

Dim linea As String = ""
Dim sr As StreamReader = New StreamReader(Archivo.Text)
        While True
            linea = sr.ReadLine
            If linea = "" Then
                Exit While
            End If
            MsgBox(linea)
        End While
sr.Close()
sr.Dispose()

Resulta que, cuando el msgbox me muestra la linea, en las letras con ACENTOS, aparecen cuadraditos.. como que no reconoce el caracter...
Que me pueden recomendar??

O algun otro metodo para leer un .txt linea por linea?

[43H4FH44H45H4CH49H56H45H]

Código (vbnet) [Seleccionar] Expandir


Dim linea As String = ""
Dim def As Encoding = Encoding.Default
Dim sr As StreamReader = New StreamReader(Archivo.Text, def, False)
    While True
       linea = sr.ReadLine
       If linea = "" Then
       Exit While
       End If
       MsgBox(linea)
    End While
sr.Close()
sr.Dispose()


[Skeletron]

Ahora realizo lo siguiente:

Código (vbnet) [Seleccionar] Expandir

        Dim Lector As StreamReader = File.OpenText("C:\Users\Noel\Desktop\Leeme - DataBase.txt")
        While Not Lector.EndOfStream
            MsgBox(Lector.ReadLine)
        End While
Y sigue dando el mismo tipo de problema :/

Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.

[Skeletron]

Código (vbnet) [Seleccionar] Expandir


Dim linea As String = ""
Dim def As Encoding = Encoding.Default
Dim sr As StreamReader = New StreamReader(Archivo.Text, def, False)
    While True
       linea = sr.ReadLine
       If linea = "" Then
       Exit While
       End If
       MsgBox(linea)
    End While
sr.Close()
sr.Dispose()


Muchas gracias!!.. Eso solucionó mi problema..
Me recomiendas leer así los archivos de texto? o hay algo mejor??

[anarquistadel89]

Para que sirve el false del final? 

[Skeletron]

Indica si se deben buscar marcas de orden de Byte al comienzo del archivo

[anarquistadel89]

Indica si se deben buscar marcas de orden de Byte al comienzo del archivo

Quiero decir que no entiendo que significa eso, traducirlo yo tambien se xD

[seba123neo]

primero habria que preguntarse porque tiene esos caracteres, ¿ que programa genera el archivo ?

[Skeletron]

Es la abse de adtos de Efemerides Sebas..
Las estoy pasando de la ex base de datos de .txt a base de datos SQLite

[seba123neo]

Es la abse de adtos de Efemerides Sebas..
Las estoy pasando de la ex base de datos de .txt a base de datos SQLite

a ok...esta bien..una vez que termines tambien hacete un alta de efemerides asi tenes como un administrador de las mismas, para que puedas dar de alta y subirlas para bajar, suerte.

saludos.