stremreader kullandığını varsayarsak

Dim reader As StreamReader = New StreamReader("dosya yolun", System.Text.Encoding.UTF8)