File Reader to examine strings

Imports System.IO

Module Module1

    Sub Main(ByVal args() As String)
        Try
            Dim fs As New FileStream(args(0), FileMode.Open)
            Dim br As New BinaryReader(fs)

            Dim b As Integer = br.ReadByte()
            While True
                Console.WriteLine(b.ToString & "     " & Char.ConvertFromUtf32(b))


                b = br.ReadByte()
            End While
        Catch ex As Exception
            Console.WriteLine(ex.ToString())
        End Try
        Console.ReadKey()
    End Sub

End Module