Use something like the following

vb Code:
  1. CType(Me.Controls.Find("TextBox" & CStr(1), True)(0), TextBox).Text = " 1"
  2.         CType(Me.Controls.Find("TextBox" & CStr(2), True)(0), TextBox).Text = " 2"
  3.         CType(Me.Controls.Find("TextBox" & CStr(3), True)(0), TextBox).Text = " 3"