Dim bin() As Byte = {&H0A, &HD7, &HA3, &H70, &H3D, &H4A, &H3D, &H40}

Dim dbl As Double = BitConverter.ToDouble(bin, 0)