For i = 1 To AnzahlWerte
        Set newCheckBox = GraphenKonf.Controls.Add("Forms.CheckBox.1")
        With newCheckBox
            .Name = ListeSignale(i - 1)
            .Caption = ListeSignale(i - 1)
            .Left = 50 - (i Mod 2) * 40
            .Top = ((i - 1) - ((i - 1) Mod 2)) * 9
            .Height = 20
            .Width = 60
        End With
    Next
 
    GraphenKonf.Show

Private Sub OK_Click()
    For i = 1 To AnzahlWerte
        If (GraphenKonf.ListeSignale(i - 1) = True) Then
            wichtigeWerte(n_wichtigeWerte) = i
            n_wichtigeWerte = n_wichtigeWerte + 1
        End If
    Next
    For i = 1 To n_wichtigeWerte
        Debug.Print (wichtigeWerte(n - 1))
    Next
End Sub

If (GraphenKonf.ListeSignale(i - 1) = True) Then