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

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?

Ahora realizo lo siguiente:

        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.

Para que sirve el false del final? 

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

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