Textboxen mit Array erstellt - wie auslesen?

[Oliver Engelstadt]

Hallo zusammen,

ich bin relativ neu in VB und habe mittels einer For Schleife dieverse Textboxen erstellt.

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Dim y As Integer
        Dim z As Integer 'tabindex
        Dim lfd_nr As TextBox
        Dim bezeichnung As TextBox
        Dim betrag As TextBox
        Dim altteil As CheckBox

        y = 45
        z = 14

        For i = 1 To 12
            lfd_nr = New TextBox
            lfd_nr.Name = "lfd_nr" & i
            lfd_nr.Left = 13
            lfd_nr.Top = y
            lfd_nr.TabIndex = z
            lfd_nr.Size = New System.Drawing.Size(30, 20)
            Me.teiledaten.Controls.Add(lfd_nr)

            bezeichnung = New TextBox
            bezeichnung.Name = "bezeichnung" & i
            bezeichnung.Left = 55
            bezeichnung.Top = y
            bezeichnung.TabIndex = z
            bezeichnung.Size = New System.Drawing.Size(650, 20)
            Me.teiledaten.Controls.Add(bezeichnung)

            betrag = New TextBox
            betrag.Name = "betrag" & i
            betrag.Left = 718
            betrag.Top = y
            betrag.TabIndex = z
            betrag.Size = New System.Drawing.Size(50, 20)
            Me.teiledaten.Controls.Add(betrag)

            altteil = New CheckBox
            altteil.Name = "altteil" & i
            altteil.Left = 780
            altteil.Top = y
            altteil.TabIndex = z
            Me.teiledaten.Controls.Add(altteil)

            y = y + 20
            z = z + 1
        Next
    End Sub

jetzt meine Frage, wie kann ich diese Textboxen (zb: betrag1, betrag2, usw.) wieder mit einer For Schleife auslesen, da ich diese an ein Excel-Sheet weitergeben möchte:

So klappt es leider nicht:

        ' Teiledaten mappen
        x = 14
        For i = 1 To 12
            objSheet.Cells(x, 2).Value = Me.Controls("lfd_nr" & i).Text
        Next i

Gruß, Oliver