'Fill cboFunctie           
        With cboFunctie
            .AddItem "beginner"
            .AddItem "gevorderde"
            .AddItem "expert"
        End With