Dim myarray As New List(Of Integer)
 
        'Falls du nicht mit VB2005 proggst:    Dim myarray As New ArrayList
 
        Dim ct As Control
        For Each ct In Me.Controls
            If TypeOf ct Is TextBox Then
                If ct.Text = "" Then
                    Label1.Text = "Bitte..."
                Else
                    myarray.Add(CInt(ct.Text))
                End If
            End If
        Next

Gru?

Silver