For Each c As Control In Me.Controls
            If TypeOf (c) Is TextBox Then
                Select Case c.Name
                    Case "TXT1"
                        ' DEIN CODE
                    Case "TXT2"
                        ' DEIN CODE
                    Case "TXT3"
                        ' ..usw"
                End Select
            End If
        Next