Read Binary FIle in VB.net

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Using myReader As New BinaryReader(File.Open(My.Application.Info.DirectoryPath & "\ncm_1799", FileMode.Open))
Dim b() = myReader.ReadBytes(200)
For J As Integer = 0 To b.Length - 1
Console.WriteLine("Byte(" & J.ToString & "): " & b(J))
Next
myReader.Close()
End Using
End Sub