Visual Basic para Aplicaciones - Crear TextBox en tiempo de ejecución

Dim txt As New TextBox

txt.Text = "hola"

txt.Location = New Point(48, 64)

Controls.Add(txt)

Private Sub UserForm_initialize()

topFreq = 60

leftFreq = 200

For i = 1 To N

Dim txtFreq As TextBox

Set txtFreq = Form.Controls.Add("Forms.TextBox.1", CStr("txtFreq" & CStr(i)))

txtFreq.Top = topFreq

txtFreq.Left = leftFreq

topFreq = topFreq + 30

Next i

end Sub

'*********

Private Sub CommandButton1_Click()

Dim variableX as integer

variableX = txtFreq1.Text

End Sub

dim tstFreq1 as Control

Private Sub UserForm_initialize()

...

Set txtFreq = Form.Controls.Add("Forms.TextBox.1", CStr("txtFreq" & CStr(i)))

...

end sub

Private Sub CommandButton1_Click()

Dim variableX as integer

variableX = txtFreq1.Text

End Sub

Private Sub CommandButton1_Click()

' para usar los textbox creados

        For i = 1 To 20

                nombre = "Caja" & Str(i)

                With Controls.Add("Forms.Textbox.1", nombre, False)

                    a = Controls(nombre).Text

                    ' y los pasamos a la hoja de excel

                    Cells(i, 1) = a

                End With

         Next

End Sub

Private Sub UserForm_initialize()

'para crear los textbox

         baja = 15

        For i = 1 To 10

                nombre = "Caja" & Str(i)

                With Controls.Add("Forms.Textbox.1", nombre, True)

                .Top = 100 + baja

                .Left = 129

                .Text = nombre

                End With

                baja = baja + 15

         Next

         baja = 15

         For i = 11 To 20

                nombre = "Caja" & Str(i)

                With Controls.Add("Forms.Textbox.1", nombre, True)

                .Top = 100 + baja

                .Left = 200

                .Text = nombre

                End With

                baja = baja + 15

         Next

End Sub