Public Class frmTest3
    Dim mytextBoxes As New _
    System.Collections.Generic.Dictionary(Of String, Windows.Forms.TextBox)
 
    Protected Overrides Sub OnLoad(e As System.EventArgs)
        MyBase.OnLoad(e)
 
        Dim tb_height As Integer = 30
 
        For i As Integer = 1 To 10
            Dim tx4 As New TextBox
            Me.Controls.Add(tx4)
            tx4.Name = "Ergebnis_" & CStr(i)  'eindeutiger Name
            tx4.Left = 160
            tx4.Top = i * tb_height
            tx4.Width = 80
            tx4.Height = 15
            tx4.Text = CStr(i)  'zum Test gefüllt 
            '(numerischer String erforderlich - siehe unten!)
 
            tx4.TextAlign = HorizontalAlignment.Right
            mytextBoxes.Add(tx4.Name, tx4)
        Next i
 
        Dim but As New Button
        Me.Controls.Add(but)
        but.Text = "Prüfen"
        but.Left = 30
        but.Width = 40
        but.Height = 20
        but.Top = mytextBoxes("Ergebnis_4").Top + tb_height
        AddHandler but.Click, AddressOf but_click
    End Sub
 
    Private Sub but_click(ByVal sender As Object, ByVal e As EventArgs)
        Dim myDoubles(mytextBoxes.Count - 1) As Double
        Dim i As Integer = -1
        For Each key As String In mytextBoxes.Keys
            i += 1
            If IsNumeric(mytextBoxes(key).Text) Then
                myDoubles(i) = CDbl(mytextBoxes(key).Text)
            End If
        Next key
 
        'Alternative: Controls-Auflistung (enthält alle Controls auf der Form)
        'i = -1
        'For Each ctl As Control In Me.Controls
        '    If TypeOf ctl Is TextBox Then
        '        If IsNumeric(ctl.Text) Then
        '            i += 1
        '            myDoubles(i) = CDbl(ctl.Text)
        '        End If
        '    End If
        'Next ctl
 
    End Sub
 
End Class