Проблема при бинарном чтении BMP файла

Option Explicit
Dim FileName$
'задаём типы BITMAPFILEHEADER и BITMAPINFOHEADER _
    в сначале структуры файла bmp:
Private Type BITMAPFILEHEADER   '14 bytes 
    bfType As String * 2  ' - должно быть 'BM' (ASCII: 66 & 77)
    bfSize As Long
    bfReserved1 As Integer
    bfReserved2 As Integer
    bfOffBits As Long
End Type
Private Type BITMAPINFOHEADER '40 bytes
   biSize As Long
   biWidth As Long 
   biHeight As Long
   biPlanes As Integer
   biBitCount As Integer
   biCompression As Long
   biSizeImage As Long
   biXPelsPerMeter As Long
   biYPelsPerMeter As Long
   biClrUsed As Long
   biClrImportant As Long
End Type
'в эти переменные будем считывать данные:
Dim bmfHeader As BITMAPFILEHEADER
Dim bmiHeader As BITMAPINFOHEADER
 
Private Sub Form_Load()
FileName = 'C:  emp.bmp'
'            читаем содержимое файла и записываем в переменные:
Open FileName For Random As #1
  Get #1, , bmfHeader 'читаем BITMAPFILEHEADER (14 байт)
  Get #1, 15, bmiHeader 'BITMAPINFOHEADER (40 байт)
 
'просмотр содержимого переменных в окне Debug:
Debug.Print 'BMF - 14 bytes................'
Debug.Print bmfHeader.bfType
Debug.Print bmfHeader.bfSize
Debug.Print bmfHeader.bfReserved1
Debug.Print bmfHeader.bfReserved2
Debug.Print bmfHeader.bfOffBits
Debug.Print 'BMI - 40 bytes...................'
Debug.Print bmiHeader.biSize
Debug.Print bmiHeader.biWidth
Debug.Print bmiHeader.biHeight
Debug.Print bmiHeader.biPlanes
Debug.Print bmiHeader.biBitCount
Debug.Print bmiHeader.biCompression
Debug.Print bmiHeader.biSizeImage
Debug.Print bmiHeader.biXPelsPerMeter
Debug.Print bmiHeader.biYPelsPerMeter
Debug.Print bmiHeader.biClrUsed
Debug.Print bmiHeader.biClrImportant
 
Close #1
End Sub