Try this.

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