Сборка Long/Double из массива Byte

  If LenB(dir(path)) Then
    Open path For Binary As #f
    ReDim SHPBinary(1 To LOF(f))
    Get f, , SHPBinary
    Close f
  Else
  'Выходим, т. к. не смогли прочитать файл
    MsgBox ("ОШИБКА. Не могу прочитать файл " & path)
    Exit Function
  End If

Public Function GEO_4Bytes2Lng(ByRef b1 As Byte, ByRef b2 As Byte, ByRef b3 As Byte, ByRef b4 As Byte, ByRef Little As Boolean) As Long    'Преобразование массива 4 байт в Integer
  Dim tmp As Long
  'Порядок записи байтов
  If Little Then
  'Смотрим на старший бит старшего байта
    If b4 > 127 Then
      'Отрицательные числа
      tmp = (256 - b1) * -1
      tmp = tmp - (255 - b2) * 256
      tmp = tmp - (255 - b3) * 65536
      tmp = tmp - (255 - b4) * 16777216
    Else
      tmp = b1
      tmp = tmp + b2 * 256
      tmp = tmp + b3 * 65536
      tmp = tmp + b4 * 16777216
    End If
  Else
    If b1 > 127 Then
      'Отрицательные числа
      tmp = b4 * -1
      tmp = tmp - (255 - b3) * 256
      tmp = tmp - (255 - b2) * 65536
      tmp = tmp - (255 - b1) * 16777216
    Else
      tmp = b4
      tmp = tmp + b3 * 256
      tmp = tmp + b2 * 65536
      tmp = tmp + b1 * 16777216
    End If
  End If
  GEO_4Bytes2Lng = tmp
End Function

Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Dest As Any, ByVal Source As Any, ByVal Length As LongPtr)
Public Function GEO_4Bytes2Lng_Copy(ByRef b1 As Byte, ByRef b2 As Byte, ByRef b3 As Byte, ByRef b4 As Byte, ByRef Little As Boolean) As Long    'Преобразование массива 4 байт в Integer
  Dim tmp As Long
  Dim i(3) As Byte
  Dim j As Byte
  If Not Little Then
    i(0) = b1
    i(1) = b2
    i(2) = b3
    i(3) = b4
  Else
    i(3) = b1
    i(2) = b2
    i(1) = b3
    i(0) = b4
  End If
  CopyMemory tmp, VarPtr(i(0)), 4
  GEO_4Bytes2Lng_Copy = tmp
End Function

Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Function GEO_4Bytes2Lng_Copy(ByRef b1 As Byte, ByRef b2 As Byte, ByRef b3 As Byte, ByRef b4 As Byte, ByRef Little As Boolean) As Long    'Преобразование массива 4 байт в Integer
  Dim tmp As Long
  Dim i(3) As Byte
  If Not Little Then
    i(3) = b1
    i(2) = b2
    i(1) = b3
    i(0) = b4
  Else
    i(0) = b1
    i(1) = b2
    i(2) = b3
    i(3) = b4
  End If
  CopyMemory tmp, i(0), 4
  GEO_4Bytes2Lng_Copy = tmp
End Function