UserForm - ComboBox in Schleife

ich habe jetzt leider nix gefunden drum frage ich mal hier nach :) ich habe 10 Comboboxen in einem Userform und wollte sie mit einer Schleife initialisieren, leider weis ich nicht wie ich das anfangen soll.
Das ist der Code für eine Combobox und da rum möchte ich jetzt eine Schleife bauen von Combobox1 - Combobox10.

Private Sub UserForm_Initialize()
With UserForm1
ComboBox1.AddItem "Frei"
ComboBox1.AddItem "DI16"
ComboBox1.AddItem "DO16"
ComboBox1.AddItem "AI8"
ComboBox1.AddItem "AO4"
ComboBox1.ListIndex = 0
End With
End Sub

Danke Petra