Dim TB2 As Control
'das große panel - genannt panel2
For Each TB2 In Me.Panel2.Controls
    If TypeOf TB2 Is TextBox Then
 
    end if
Next
'das kleine panel - genannt panel7
For Each TB2 In  Me.Panel7.Controls
    If TypeOf TB2 Is TextBox Then
 
    end if
Next