No se si te he entendido bien.
Si lo que kieres es que te salga formularios por numero que asigne el usuario, usa un for y cargalo con una variable.
dim i as integer
private sub mostrar_forms(numero as integer)
for i=0 to numero
(codigo lo que kieres mostrar tantas veces)
exitfor (salida forzosa del for, si deseas salir antes)
next
end sub
private sub boton_click()
i=text1.text (text que le cargas en el formulario principal)
call mostrar_forms(i)
(llamada al procedimiento de rutina)
end sub
No se si te servira de algo, espero que si
Un saludo