Combobox og Module

Hej
Jeg har et en form med f.eks 10 comboboxe, f.eks kaldet cboCombo og med index 0 til 9.

Jeg ønsker comboboxene skal udfyldes med det samme indhold, når formen frmMain åbnes. Koden til at fylde med, ligger i modulet modModule og proceduren hedder modComboFyld

eks.

Private sub frmMain()
  Call modComboFyld (cboCombo, Ubound(modComboFyld))
End sub

modModule:
sub modComboFyld(cboCombo() as Combobox, x as integer)

    Dim i as integer

    set cboCombo = cboCombo(i)
    cboCombo = cboCombo(i)

    For i=0 to x
        Noget kode til at fylde
    Next
End Sub

Jeg får en fejl: Run-Time error 13
                Type mismatch