Ler caracteres especiais arquivo texto - StreamReader

Question

Estou utilizando a clase StreamReader para ler um arquivo texto, porém ela está pulando os caracteres especiais(ç,ã,é, etc) aí o restante da linha bagunça tudo

o código é o segte :

Dim arqtemp As StreamReader = File.OpenText("\Program Files\Prospects\Prospects.txt")

input = arqtemp.ReadLine()

ProgressBar1.Maximum = Trim(input)

input = arqtemp.ReadLine()

While Not input Is Nothing

cont = cont + 1

ProgressBar1.Value = cont

If input <> "" Then

Dim myRec As SqlCeUpdatableRecord = RS.CreateRecord

myRec.SetInt32(0, Mid(input, 1, 6))

myRec.SetString(1, Mid(input, 42, 54))

myRec.SetString(2, Mid(input, 96, 30))

myRec.SetString(3, Mid(input, 126, 25))

myRec.SetString(4, Mid(input, 151, 8))

myRec.SetString(5, Mid(input, 7, 35))

myRec.SetInt16(6, Mid(input, 180, 6))

myRec.SetString(7, Mid(input, 160, 20))

myRec.SetString(8, Mid(input, 186, 1))

RS.Insert(myRec)

End If

ProgressBar1.Update()

input = arqtemp.ReadLine()

End While