Try this.
Module1
UserFormPublic Sub SiteSelector(CurrentForm As UserForm) Dim TestCombo As Object Set TestCombo = CurrentForm.Controls.Add("Forms.ComboBox.1", "TestCombo") End Sub
Private Sub UserForm_Initialize() Module1.SiteSelector Me End Sub