Option Explicit
 
Private Type UDT1
  Wert1 As Integer
  Wert2 As Long
  Wert3 As Double
End Type
 
Private Type UDT2
  BytLst(15) As Byte
End Type
 
Private Sub Form_Activate()
 
Dim V1 As UDT1, V2 As UDT2, Out$, i&
 
With V1
  .Wert1 = 10
  .Wert2 = 5670
  .Wert3 = 2000000000
End With
LSet V2 = V1
Out = ""
For i = 0 To 15
  Out = Out & "Byte " & i & " = " & V2.BytLst(i) & vbCr
Next i
MsgBox Out
 
End Sub

Zitat:

Interessant wäre jetzt noch zu wissen, wie ich aus dem String wieder einen UDT mache.

Gruss,

Zardoz