Imports System
Imports System.IO
Class StrmRdrRead
Public Shared Sub Main()
Dim MyFile As New FileInfo("c:\csc.txt")
Dim sr As StreamReader = MyFile.OpenText()
Dim FirstChar As Integer = sr.Read()
Console.WriteLine("{0:D} {1:X} ", FirstChar, FirstChar)
sr.Close()
End Sub
End Class