Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim myarray(4) As Integer
        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(0) = CType(TextBox1.Text, Integer)
                    myarray(1) = CType(TextBox2.Text, Integer)
                    '....
                End If
            End If
        Next
    End Sub

myarray(2) = CType(TextBox3.Text, Integer)