>　Private DicTextBox As Dictionary(Of String, TextBox)

Private DicTextBox As Dictionary(Of String, TextBox())


 > DicTextBox = New Dictionary(Of String, TextBox)
DicTextBox = New Dictionary(Of String, TextBox())


> DicTextBox.Add("１", TextBox1)
DicTextBox.Add("１", New TextBox() {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6})

> wt.WriteLine("{0}{1}", keyvalue.Key, keyvalue.Value.Text)
wt.WriteLine("{0}{1} 守備{2}　打率{3}　HR{4}　打点{5}　盗塁{6}", keyvalue.Key, keyvalue.Value(0).Text, keyvalue.Value(1).Text, keyvalue.Value(2).Text, keyvalue.Value(3).Text, keyvalue.Value(4).Text, keyvalue.Value(5).Text)

のようにすると良いかと思います。
項目がたくさんあるのでかなり省略してます。