Массив бинарного файла, чтение и конвертация. - Visual Basic .NET - Ответ 1604103

            Dim fs As FileStream = File.OpenRead(path)
            fs = File.OpenRead(path)
            Dim b(36) As Byte
            Do While fs.Read(b, 0, b.Length) '> 0
                Dim binReader As New BinaryReader(fs)
                'binReader.BaseStream.Seek(0, SeekOrigin.Begin)
                Dim count As Object = binReader.ReadBytes(37)
                Dim lkupDir As Byte = binReader.Read(count, 24, 2)
                lkupDir = binReader.ReadDouble()
                lkupDir = lkupDir * 0.00000011920929 ' конвертим в правильные координаты
            Loop
            fs.Close()

            Dim fs As FileStream = File.OpenRead(path)
            fs = File.OpenRead(path)
            'Dim temp As UTF8Encoding = New UTF8Encoding(True)
            ss = (fs.Length / 37) - 1
            For d = 0 To ss
                Dim binReader As New BinaryReader(fs)
                Dim Пусто As Object = binReader.ReadBytes(20)
                Dim Номер As Object = binReader.ReadBytes(4)
                Dim Долгота As Object = binReader.ReadBytes(4)
                Dim Широта As Object = binReader.ReadBytes(4)
                Dim Скорость As Object = binReader.ReadBytes(1)
                Dim Тип As Object = binReader.ReadBytes(1)
                Dim Направление As Object = binReader.ReadBytes(1)
                Dim Типнаправления As Object = binReader.ReadBytes(1)
                Dim Исправления As Object = binReader.ReadBytes(1)
            Next
            fs.Close()