Opret flere objekter med forskellige navne

Sådan laves en tekstbox:

Private Sub Command1_Click()
  Form1.Controls.Add "VB.TextBox", "Tekst1"
  With Form1!Tekst1
    .Visible = True
    .Width = 1000
    .Text = "Hejsa"
  End With

End Sub

Nemt nok, men hvis man ønsker at lave en NY tekst-box, hvor gang man trykker på knappen - med et nyt navn hver gang. F.eks.

Tekst1, tekst2, tekst3, tekst4 osv osv.

Hvorledes gøres dette?

Man kan ikke sige:

i = 0

Private Sub Command1_Click()
  Form1.Controls.Add "VB.TextBox", "Tekst" & i
  With Form1!Tekst & i
    .Visible = True
    .Width = 1000
    .Text = "Hejsa"
  End With
End Sub

i = i + 1

:) Virker jo ikke.