Option Explicit
 
Private Type Person
strName As String
strVorname As String
strOrt As String
End Type
 
Dim x() As Person
Dim i As Integer
 
Private Sub Command1_Click()
  ReDim x(i)
  x(i).strName = Text1.Text
  x(i).strVorname = Text2.Text
  x(i).strOrt = Text3.Text
  i = i + 1
End Sub
 
Private Sub Form_Load()
   i = 0
End Sub