Public Function Float_to_Dez(Hex_String As String) As Single
  Dim A As UDT1, B As UDT2, C$, i&
 
  C = Right$(String$(8, "0") & Hex_String, 8)
  For i = 0 To 3
    B.ByteList(i) = Val("&H" & Mid$(C, 2 * i + 1, 2))
  Next i
  LSet A = B
  Float_to_Dez = A.Wert
End Function

Gruss,

Zardoz