Structure Daten
		Public Wert1Single As Single
		Public Wert2Byte As Byte
		Public Wert3Short As Short
		Public Wert4Single As Single
	End Structure
 
	Sub Main()
		Dim Bytes(10) As Byte
		Dim dat As Daten
 
		Bytes(0) = 1
		Bytes(1) = 2
		Bytes(2) = 3
		Bytes(3) = 4
		Bytes(4) = 5
		Bytes(5) = 6
		Bytes(6) = 7
		Bytes(7) = 8
		Bytes(8) = 9
		Bytes(9) = 0
		Bytes(10) = 1
 
		dat = RawDeserialize(Bytes, dat)
 
	End Sub