Dim inhalt(10)
  Dim mytextBoxes As New System.Collections.Generic.Dictionary(Of String, _
    Windows.Forms.TextBox)
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        Dim Rnd As New System.Random
for i=1 to 10
          Dim tx4 As New TextBox
            Me.Controls.Add(tx4)
            tx4.Name = "Ergebnis_" & CStr(i)  'eindeutiger Name
            tx4.Left = 160
            tx4.Top = l2
            tx4.Width = 80
            tx4.Height = 15
            tx4.BorderStyle = BorderStyle.None
            tx4.BackColor = System.Drawing.SystemColors.Control
            tx4.Text = "ertghff_" & CStr(i) 'zum Test gefüllt
            tx4.TextAlign = HorizontalAlignment.Right
            tx4.Visible = True
            mytextBoxes.Add(tx4.Name, tx4)
            AddEntry(s1, s2, lö, eg, 0, 0)
        Next
        Dim but As New Button
        Me.Controls.Add(but)
        but.Text = "Prüfen"
        but.Left = 30
        but.Width = 50
        but.Height = 20
        but.Top = mytextBoxes("Ergebnis_10").Top + 30
        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
                inhalt(i) = CDbl(mytextBoxes(key).Text)' inhalt ist nur eine 
                ' Variable zum Testen
          ' mytextBoxes(key).Text  -- das habe ich auch probiert aber zur 
          ' Laufzeit wird auf der Form nichts geändert
            End If
        Next key
        mytextBoxes.Clear()' auch ein Test der nicht funktioniert
    End Sub