Using the PUT and GET statements does not return byte values from a binary file.

Sub Main
'******************************************************************
  DIM CountFileName As String
  DIM FValue as Variant  
  
  ' File Name to Open for conversion into spreadsheet
  CountFileName = "C:\DATA\LOG-117A"

  If NOT FileExists(CountFileName) Then
    Msgbox(CountFileName & " does NOT exists", 64, "Warning")
    exit sub
  End If
  iNum = FreeFile
    
  OPEN CountFileName for binary ACCESS READ as #iNum  

  GET #iNum,,FValue  ' With FValue declared as Variant This line fails
                     ' If FVAlue is declared as Integer this line works but
                     ' Returns two bytes from the file.