dynamiske tilføjede checkboxes i userform fra array fejler

Jeg har fundet følgende kode som jeg har moduleret lidt. Jeg får runtime error 424 - Kan nogle hjælpe?

JEg har forsøgt at enable Microsoft DAO 3.5 Object Library (som hedder 3.6 i min excel godt nok:


Option Explicit

Private Sub UserForm_Initialize()

Dim LastColumn  As Long
Dim i          As Long
Dim chkBox      As MSForms.CheckBox


Call test ' her fylder jeg public array med data
LastColumn = UBound(UniqueProvisionArray)

For i = 0 To LastColumn
    Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i)
    chkBox.Caption = UniqueProvisionArray(i).Value
    chkBox.Left = 5
    chkBox.Top = 5 + ((i - 1) * 20)
Next i

End Sub