Lectura de un archivo binario (1: BMP) Ejercicio VB.Net - Curso de Programación Visual Basic

Imports System
Imports System.IO
Public Class BmpFile
    Public Shared Sub Main()
        Dim data1, data2 As Byte
        Dim myFile As BinaryReader
        myFile = New BinaryReader(File.Open("1.bmp", FileMode.Open))
        data1 = myFile.ReadByte()
        data2 = myFile.ReadByte()
        myFile.Close()

        If (data1 = &H42) AndAlso (data2 = &H4D) Then
            Console.WriteLine("It seems to be a BMP file")
        Else
            Console.WriteLine("It DOES NOT seem to be a BMP file")
        End If
    End Sub
End Class