Public Personen() As sPerson, Personen_count As Integer
 
Structure sPerson
   Dim Name As String
   Dim Vorname As String
End Structure
 
Sub Einlesen()
   Redim Preserve Personen(Personen_count)
   '### ab hier weiß ich nicht so genau was du meinst
   Personen(Personen_count).Name = "MeinName" 'glaube der name des 
   ' Steuerelements?
   Personen(Personen_count).Nachname = "MeinNachname" ' name des zweiten 
   ' Steuerelements?
   '### ende nicht mehr wissen^^
   Personen_count += 1
End Sub