Private Sub Test()
 
Dim i1%, i2%, i3%, i4%, i5%, i6%, i7%, i8%, i9%
 
i1 = 18
i2 = 26
i3 = 6
i4 = 18
i5 = 26
i6 = 20
i7 = 25
i8 = 3
i9 = 20
 
Dim iarr(9) As Integer
 
iarr(1) = i1
iarr(2) = i2
iarr(3) = i3
iarr(4) = i4
iarr(5) = i5
iarr(6) = i6
iarr(7) = i7
iarr(8) = i8
iarr(9) = i9
 
Dim i%, k%
 
For i = 1 To 9
   If iarr(i) > 0 Then
      For k = i + 1 To 9
         If iarr(i) = iarr(k) Then iarr(k) = 0
      Next k
   End If
Next i
 
i1 = iarr(1)
i2 = iarr(2)
i3 = iarr(3)
i4 = iarr(4)
i5 = iarr(5)
i6 = iarr(6)
i7 = iarr(7)
i8 = iarr(8)
i9 = iarr(9)
 
 
End Sub