Crear textbox automaticamente en una form

Crea un userform y agrega 10 textbox y un commadbuton y pruebas este código
Cada vez que le des al botón te pedirá el numero de textbox a mostrar.
Espero te sea de ayuda.
Saludos
Bacter
Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim i As Integer
Dim j As Integer
j = InputBox("indique Nº de textbox a mostrar")
For Each ctrl In UserForm1.Controls
    If TypeName(ctrl) = "TextBox" Then
    If i < j Then
    i = i + 1
        With ctrl
            .Visible = True
        End With
        End If
    End If
Next ctrl
End Sub
Private Sub UserForm_Initialize()
For Each ctrl In UserForm1.Controls
    If TypeName(ctrl) = "TextBox" Then
        With ctrl
            .Visible = False
        End With
    End If
Next ctrl
End Sub