codice:
Dim i%
For i = 1 To 3
	Dim name$ = "TextBox" & i
	Dim tb As TextBox = DirectCast(Me.FindControl(name), TextBox)
	tb.Text = "prova " & i

Next