Private Sub Form_Load()
  Dim I As Integer
 
  For I = 1 To 100
    <font color=green>' Neue TextBox laden</font>
    Load Text1(I)
    With Text1(I)
      <font color=green>' Auf dem Formular positionieren</font>
      .Left = ...
      .Top = ...
 
      <font color=green>' sichtbar machen</font>
      .Visible = True
    End With
  Next I
End Sub