Sam,
I am no expert adding controls on the fly and have quickly, as I am about to
head off home, cobbled the following code together which should do roughly
what you want or if not, may give you some further pointers.

You will though, need to develop method to collect any data entered in each
textbox by user.

Hope useful

Private Sub CommandButton1_Click()
Dim NewTextBox As MSForms.TextBox
Dim nostudents As Integer

On Error Resume Next
nostudents = Me.TotalStudents.Text


'Create Text Boxes
For X = 0 To nostudents - 1

Set NewTextBox = Me.Controls.Add("Forms.textbox.1")

With NewTextBox
.Name = "MyTextBox" & X + 1
.Top = 20 + (22 * X)
.Left = 10
.Width = 100
.Height = 18
.Font.Size = 7
.Font.Name = "Tahoma"
.BorderStyle = fmBorderStyleSingle
.SpecialEffect = fmSpecialEffectSunken

End With

Next

End Sub
--
jb


"sam" wrote:

Hi All,

I want to add textboxes at runtime based on what user inputs in a textbo.

For eg:

I have a textbox "Total Students" , so Once I input a number in that
textbox, I want to have that many textboxes on the form during run time. If
I input 4 I want four textboxes to be displayed on the form.

Here is my code that I have so far.

Private Sub TextBox1_AfterUpdate()
Dim cCntrl As Control, Dim i as integer
i = 1

For i = 1 To 10

If Me.TextBox1.Value = i Then

With Frame14

Set cCntrl = Me.Controls.Add("Forms.TextBox.1", "MyTextBox1", True)
With cCntrl
.Width = 150
.Height = 25
.Top = 10
.Left = 10
.ZOrder (0)
End With

End With

End If

Next i

End Sub


Thanks in advance