Imports System.IO

Imports System.Text



Public Class Form1

    Private DicTextBox As Dictionary(Of String, TextBox)



    Public Sub New()

        ' この呼び出しはデザイナーで必要です。 

        InitializeComponent()



        ' InitializeComponent() 呼び出しの後で初期化を追加します。 

        DicTextBox = New Dictionary(Of String, TextBox)

        DicTextBox.Add("１", TextBox1)

        DicTextBox.Add("２", TextBox2)

        DicTextBox.Add("３", TextBox3)

        DicTextBox.Add("４", TextBox4)

        DicTextBox.Add("５", TextBox5)

        DicTextBox.Add("６", TextBox6)

        DicTextBox.Add("７", TextBox7)

        DicTextBox.Add("８", TextBox8)

        DicTextBox.Add("９", TextBox9)

        DicTextBox.Add("Ｐ", TextBox10)

    End Sub





    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim wt As New StreamWriter("C:\tmp\abc.txt", False, Encoding.UTF8)

        For Each keyvalue In DicTextBox

            wt.WriteLine("{0}{1}", keyvalue.Key, keyvalue.Value.Text)

        Next

        wt.Close()

    End Sub

End Class