TextBoxの名前を指定して値を取得する

業務アプリではひとつの画面上でたくさんの入力フィールド(主にTextBox)を配置することも多いです。
たとえば
要素11、要素12、要素13
要素21、要素22、要素23
　↓
要素61、要素62、要素63
みたいな時です。
こういう時は後処理も考えてDataGridViewでやることが多いんですが、他の人に頼むと決まってTextBoxをびっしり並べてくれます。

そんな眩暈がするようなフォームはさくっとループで処理したいですよね

　　For y As Integer = 1 To 6
　　　For x As Integer = 1 To 3
　　　　Dim tb As Control = Me.Controls("C" & y & x)
　　　　Parameters("C" & y & x).Value = DirectCast(tb, TextBox).Text
　　　Next
　　Next