first of all: do not complicate your code by creating & formatting controls at runtime
Create the 60 textboxes in design mode and make them invisible.
Put all the code that pertains to the userform in de codemodule of this userform !
At runtime you can use, dependent of anything (but also some user input), this code to make the textboxes visible
Sub M_snb()
for j=1 to val(inputbox("number 1 to 60"))
me("TextBox" & j).visible=true
next
End Sub
To write the result into a worksheet:
Sub M_snb()
redim sn(59,0)
for j=0 to 59
if me("Textbox" & j+1)=visible then sn(j,0)=me("Textbox" & j+1)
next
thisworkbook.sheets(1).cells(1,1).resize(60)=sn
End Sub
Reduce reading/writing from/into a worksheet to the minimum for speed's sake.