a questo punto basta usare un ciclo for... del tipo:
dim i as integer
for i = 1 to 5
text2.text = text2.text & "prova" & i & vbcrlf
next i

questo è un esempio aggiustatelo tu...

p.s. ho messo prova perchè nn mi ricordavo quella stringa a caso che avevi scritto...