[vicmb]

Public Sub New( _
ByVal stream As Stream, _
ByVal encoding As Encoding, _
ByVal detectEncodingFromByteOrderMarks As Boolean, _
ByVal bufferSize As Integer _
)

Это один из конструкторов StreamReader, собс-но тебе нужен Encoding.
RTFM