De excel a Visual Basic

[rickyper]

Código Visual Basic:

Private Sub abrir_Click()
'Variables
Dim archivo As String
Dim xlApp As Excel.Application
Dim libro As Workbook
Dim hoja As Worksheet
Dim rango As Variant
 
CommonDialog1.Filter = "Archivos excel (*.xls)|*.xls|"
CommonDialog1.ShowOpen
archivo = CommonDialog1.FileName
'Verificamos si hay archivo
If Len(archivo) Then
    'MsgBox (archivo)
    Set xlApp = New Excel.Application
    Set libro = xlApp.Workbooks.Open(archivo)
 
    Set hoja = libro.Worksheets("trns_rpt") 'Seleccionar el nombre de la hoja
    rango = hoja.Range("C3").End(xlDown).Value
   'Después que agrego los item elimino los repetidos
    Combo1.AddItem (rango)
    Dim i As Integer, x As Integer
    For i = 0 To Combo1.ListCount - 1
    For x = 0 To Combo1.ListCount - 1
    If (Combo1.List(i) = Combo1.List(x)) And x <> i Then
    Combo1.RemoveItem (i)
    End If
    Next x
    Next i
 
'Si no hay archivo mostramos error
Else
    MsgBox ("Debe seleccionar archivo para continuar")
End If
End Sub
 

Hola amigos este es el codigo que uso para abrir un archivo excel...Y lo que quiero es que se llene los datos de un rango en un comboBox sin que se repita alguno, pero aun no lo logro es la primera vez que uso Visual Basic. Toda ayuda es bienvenida.
Edito: solo me muestra un item...