Информацию из 10 TextBox записать в массив

Dim Mass(10) As Double
        Dim i As Byte
 
        For i = 0 To 9
            Mass(i) = TextBox(i).Text
        Next

TextBox(i).Text

TextBox(i).Text

Controls("TextBox" & I).Text

Dim i As Integer, MassAs New ArrayList()
For i = 1 To 10
     Mass.Insert(i - 1, Controls("TextBox" & i).Text)
Next
MessageBox.Show(Mass.Count)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Mass(10) As Double
        For i = 1 To 10
            Mass(i) = Controls("TextBox" & i).Text
        Next
        IO.File.WriteAllText("C:\21.txt", Join(Array.ConvertAll(Mass, New Converter(Of Double, String)(AddressOf Double.Parse)), "|"))
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Mass() As Double = Array.ConvertAll(IO.File.ReadAllText("C:\21.txt").Split("|"), New Converter(Of String, Double)(AddressOf Double.Parse))
        For i = 1 To 10
            Controls("TextBox" & i).Text = Mass(i)
        Next
    End Sub

 IO.File.WriteAllText("C:\21.txt", Join(Array.ConvertAll(Mass, New Converter(Of Double, String)(AddressOf Double.Parse)), "|"))

(AddressOf Double.Parse)), "|"))

IO.File.WriteAllText("C:\21.txt", Join(Mass, "|"))

 Dim Mass As String = Array.ConvertAll(IO.File.ReadAllText("C:\D21.txt").Split("|"), New Converter(Of String, Double)(AddressOf Double.Parse))

Mass = IO.File.ReadAllText("C:\21.txt").Split("|")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim S As String = ""
        For I As Integer = 1 To 3
            S &= Math.Abs(Val(CType(Me.Controls("CheckBox" & I), CheckBox).Checked))
        Next
        IO.File.WriteAllText("C:\171.txt", S)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim S As String = IO.File.ReadAllText("C:\171.txt")
        For I As Integer = 0 To 2
            CType(Me.Controls("CheckBox" & I + 1), CheckBox).Checked = CInt(S(I).ToString)
        Next
    End Sub
End Class