Dim c As CheckBox
            Dim f() As String
            f = Me.lFaecher.Text.Split(", ")
 
            For Each c In Me.PnFaecher.Controls
                c.Checked = False
            Next
 
            For n As Integer = 0 To f.Length - 1
                For Each c In Me.PnFaecher.Controls
                    If c.Text = f(n) Then
                        c.Checked = True
                    End If
                Next
            Next