Dim Ctrl As Control
Dim i As Integer
For i = 2 To 22
Set Ctrl = Me.Controls.Add("forms.textbox.1")
With Ctrl
.Name = "textbox" & i
.Visible = True
[b].Left = UserForm1("Label" & i).Left[/b]
[b].Top = UserForm1("Label" & i).Top[/b]
.Value = UserForm1("Label" & i).Caption
End With
Next i