Dim hs As String = "182d4454fb210940"
 
        Dim bytes(7) As Byte
        For i As Integer = 0 To 7
            bytes(i) = Convert.ToByte(hs.Substring(i * 2, 2), 16)
        Next
 
        Dim d As Double = BitConverter.ToDouble(bytes, 0)
 
        Debug.WriteLine(d.ToString())

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist