'Struktur 
Friend Structure strucFields
    Dim Field1 As Byte
    Dim Field2 As Byte
    Dim Field3 As Byte
    Dim Field4 As Byte
    Dim Field5 As Byte
    Dim Field6 As Byte
End Structure
 
'Strukturvariable erstellen und Felder mit Werten füllen
Dim myfields As strucFields
With myfields
     .Field1 = 10 : .Field2 = 20 : .Field3 = 30
     .Field4 = 40 : .Field5 = 50 : .Field6 = 60
End With
 
'Die Felder können "reflektiert" abgefragt werden
Dim byt(6) As Byte
For i As Integer = 1 To 6
   byt(i) = _
   CType(GetType(strucFields).GetField("Field" + CStr(i)).GetValue(myfields), _
   Byte)
Next i