Evitar Repeticion de contenido en ComboBox

[JoaoM]

Hola amigos, nuevamente con un problema que no se resolver a pesar de lo haber tentado
Macro en UserForm_Initialize

Código:

'** SEARCH COMBOBOX  LLena el comboBox
ComboBox1.AddItem "Nombre"
ComboBox1.AddItem "Compañía"
ComboBox1.AddItem "Ciudad"
ComboBox1.AddItem "Teléfono"
'**********************************************

*
Macro en CommandButton4_Click

Código:

Private Sub CommandButton4_Click() 'CLEAR BUTTON
Dim del As Control
*** For Each del In UserForm1.Controls
******* If TypeName(del) = "TextBox" Or TypeName(del) = "ComboBox" Then
*********** del.Text = ""
******* ElseIf TypeName(del) = "ListBox" Then
*********** del.Value = ""
****** 
******* End If
*** Next del
*** Call Main 'Progress Bar
TextBox14.Value = ListBox1.ListCount
Label15.Caption = ""
UserForm_Initialize 'AQUI ES DONDE ESTA MI PROBLEMA
End Sub

Cuando piso el Botón CommandButton4 se me repite el contenido en el ComboBox1, porque activa o ejecuta el procedimiento del UserForm_Initialize
¿Cómo hacer para que no se repita el lleno al combobox1?
Trate colocando antes de '** SEARCH COMBOBOX colocar ComboBox = ""* NO RESULTO
Con*el evento ComboBox1_Enter PERO NO ES EL EVENTO ADECUADO
No se como evitar la repetición cada ves que piso el Botón CommandButton4, es decir, cada ves que piso CommandButton4, se inicia el evento UserForm_Initialize

No se trata de combobox1 = "" o también ComboBox1.Clear para limpiar el texto que presente, si para eliminar (limpiar) todos sus ítems que presenta al pisar la pestaña (flecha) del su lado derecho