Dim c_Textbox As New TextBox
                With c_Textbox
                    .Name = "c_TextBox"
                    .Text = xlZelle.Offset(intZeilen, 1).Value
                    .Visible = True
                    .Size = New Size(280, 22)
                    .Location = New Point(Me.m_Location.X, Me.m_Location.Y)
                    m_Location.Y += c_Textbox.Height + 5
                End With
                Me.pnlMonthCD.Controls.Add(c_Textbox)
 
for each con as control in me.pnlMonthCD.Controls
    if Typeof(con) is TextBox AndAlso cType(con, TextBox).Name = "c_TextBox" _
      then
        MessageBox.Show("der inhalt von c_TextBox ist " & cType(con, _
        TextBox).Text)
    end if
next con