Try something like this,
Code:
string myTxt = TextBox1.Value
Dim allTxt As New List(Of Control)
   For Each txt As TextBox In FindControlRecursive(allTxt, Me, GetType(TextBox))
       txt.Value = myTxt
   Next