New txt boxes

how do i make a new txt box when some one pushes a buton i have the text as as arreys , can any one help m e

Code:

---

Option Explicit

Private WithEvents btnObj As TextBox

Private Sub Form_Load()
  Set btnObj = Controls.Add("VB.Textbox", "btnObj")
  With btnObj
      .Visible = True
      .Width = 3000
      .Text = "This button was created on the fly!"
      .Top = 1000
      .Left = 1000
  End With
End Sub

---