<Serializable()> Structure tSettings
    Public blnJaNein1 As Boolean
    Public blnJaNein2 As Boolean
    Public intZahl1 As Integer 
    Public intZahl2 Integer 
    Public arrText() As String
    Public arrNotes() As String
End Structure 'tSettings
 
<Serializable()> Structure tDaten
    Dim strName As String
    Public intZahl3 As Integer 
    Public intZahl4 Integer 
    Public arrD() As tSettings 
    Public arrE() As tSettings  
    Public arrF() As tSettings  
End Structure 'tDaten
 
  Public arrDaten As New List(Of tDaten)
  Public AktDaten As tDaten

AktDaten = arrDaten(AktIdx) 'Ist z.B. 12
With AktDaten
.....
  .arrD(0).intZahl1 = Val(txtZahl1.Text) 'Zahl aus Textbox in Form
.....
End With 'AktDaten

_________________________________________
ATH, Bomi