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
 
B.ByteList(0) = &H0
B.ByteList(1) = &H0
B.ByteList(2) = &H48
B.ByteList(3) = &HC1
LSet A = B
MsgBox A.Wert
 
End Sub

Gruss,

Zardoz