how would you go about repeating a task

You can improve it even more, but just to give you an "on the fly"
idea of common mistakes users could step into...
Dim i As Integer
If IsNumeric(Text1.text) then
if Clng(text1.text)<32000 then
For i = 1 To Cint(Text1.Text)
'..... code the task you want done here
Next
else
'value is too big!
Msgbox "Enter a number lesser then or equal to 32000!"
end if
Else
'not a numeric value
msgbox "Enter a numeric value in textBox"
End If