Перевести Byte() в десятичное число - VB

Формулировка задачи:

Помогите пожалуйста. Считываю метаданные фотографии. В частности положение (GPS) К примеру широта снимка такая 37:52:44,412. Получил массив тива Byte(). Что касается целых чисел 37 и 52 понятно. В нулевой и 8 позиции этого массива они так и записаны, здесь вопросов нет. Не могу получить дробное значение секунд. В массиве оно будет так Dim ArrayByte as Byte()={124,173,0,0,232,3,0,0}. Как из такой записи сделать число 44,412. Пробовал через Dim str As Double = BitConverter.ToDouble(LatBytes, 0), получил значение 2,12. Спасибо.

Решение задачи: «Перевести Byte() в десятичное число»

textual
                            Листинг программы 
                        
                            Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
Function B2D(B() As Byte) As Double
 
   Tmp# = 0
   
   CopyMemory Tmp#, B(0), 8
 
   B2D = Tmp#
 
End Function