How remove duplicate values when taking data from excel to VB 6?

[Niki_S]

My code is as below and I want to remove duplicates when taking data from excel.

  vArray = oXLSheet.Range("E12:E140").Value
  vArray1 = oXLSheet.Range("U12:U140").Value


    cboOperation.Clear
   For lngRow = LBound(vArray, 1) To UBound(vArray, 1)
    If Not IsEmpty(vArray(lngRow, 1)) Then

            cboOperation.AddItem vArray(lngRow, 1)
    
    End If
   Next lngRow

The result from this is as below,

179
234
567
179
657
234

But I want to take my output as,

179
234
567
657

How can I take my output?

Thank you.

 

[Andrzejek]

What have you tried so far?
Show some effort.

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

 

[Niki_S]

I did something like this.

Dim position As Integer
Dim position2 As Integer


 cboOperation.Clear
   For lngRow = LBound(vArray, 1) To UBound(vArray, 1)
    If Not IsEmpty(vArray(lngRow, 1)) Then
        position = InStr(1, vArray(lngRow, 1))
        If position > 0 Then
            cboOperation.AddItem vArray(lngRow, 1)
        End If
    End If
   Next lngRow


 For lngRow = LBound(vArray1, 1) To UBound(vArray1, 1)
    If Not IsEmpty(vArray1(lngRow, 1)) Then
        position2 = InStr(1, vArray(lngRow, 1))
        If position2 > 0 Then
            cboOperation.AddItem vArray1(lngRow, 1)
        End If
    End If
   Next lngRow