vba arrays de controles o similar¿?

[DIANA_MM]

Hola! Necesito que alguien me ayude con el siguiente tema:

-Vba y excel (no tengo el visual basic propiamente.
-Tengo en un formulario cinco combobox y los cinco con los mismos datos.
-Los combobox se llaman cmbfrecuncia1,cmbfrecuencia2, ...y cmbfrecuencia5
-En el código tengo lo siguiente:

Private Sub UserForm_Initialize()

cmbfrecuencia1.AddItem "Anual"
cmbfrecuencia1.AddItem "Semestral"
cmbfrecuencia1.AddItem "Bimestral"
cmbfrecuencia1.AddItem "Trimestral"
cmbfrecuencia1.AddItem "Cuatrimestral"
cmbfrecuencia1.AddItem "Mensual"

cmbfrecuencia2.AddItem "Anual"
cmbfrecuencia2.AddItem "Semestral"
cmbfrecuencia2.AddItem "Bimestral"
cmbfrecuencia2.AddItem "Trimestral"
cmbfrecuencia2.AddItem "Cuatrimestral"
cmbfrecuencia2.AddItem "Mensual"

etc....

cmbfrecuencia5.AddItem "Anual"
cmbfrecuencia5.AddItem "Semestral"
cmbfrecuencia5.AddItem "Bimestral"
cmbfrecuencia5.AddItem "Trimestral"
cmbfrecuencia5.AddItem "Cuatrimestral"
cmbfrecuencia5.AddItem "Mensual"

End sub

-¿como puedo simplificar y escribirlo solo una vez y no cino?
-He intentado con lo siguiente, pero no me sale. Salta mensaje ERROR DE COMPILACIÓN, NO SE HA DEFINIDO SUB O FUNCTION.

Private Sub UserForm_Initialize()
Dim X(1 To 5) As Integer

For ii = 1 To 5
cmbfrecuenciaX(ii).AddItem "Anual"
cmbfrecuenciaX(ii).AddItem "Semestral"
cmbfrecuenciaX(ii).AddItem "Bimestral"
cmbfrecuenciaX(ii).AddItem "Trimestral"
cmbfrecuenciaX(ii).AddItem "Cuatrimestral"
cmbfrecuenciaX(ii).AddItem "Mensual"

Next ii

End sub

A ver si alguien sabe que puedo hacer...

Gracias

Diana