Public Function Float_to_Dez(Hex_String As String) As Single
Dim A As UDT1, B As UDT2
 
B.ByteList(0) = &H0
B.ByteList(1) = &H0
B.ByteList(2) = &H48
B.ByteList(3) = &HC1
LSet A = B
 
Float_to_Dez A.Wert
 
End Function