Prova così:



Dim ActiveTextBox As TextBox

Sub Text1_Click(Index As Integer)
Set ActiveTextBox = Text1(Index)
End Sub