Option Explicit
 
Private Type UDT1
  Wert As Single
End Type
 
Private Type UDT2
  ByteList(3) As Byte
End Type
 
Private Sub Form_Load()
 
Dim A As UDT1, B As UDT2, i&, Out$
 
A.Wert = -12.5 ' Hier den Wert einsetzen
LSet B = A
For i = 0 To 3
  Out = Out & Right$("0" & Hex(B.ByteList(i)), 2) & " "
Next i
MsgBox Out
 
End Sub

Gruss,

Zardoz