Private mTBList As New List(Of TextBox)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim anzahl As Integer = CInt(TextBox1.Text)
        For i As Integer = 0 To anzahl - 1
            mTBList.Add(New TextBox)
 
            With mTBList(i)
                .Size = New Size(100, 20)
                .Location = New Point(200, 100 + (i * 25))
            End With
 
            Me.Controls.Add(Me.mTBList(i))
        Next
 
 
    End Sub

        'anzahl muss bei diesem Bsp. mindestens 4 sein
        Me.mTBList(3).Text = "Hallo"
        'oder
        Dim x As Integer = CInt(Me.mTBList(3).Text)