AddItem sin repetidos en cuadro de lista

Function Generar6Aleatorios() '6 valores asignados entre 49 posibles

Dim ArrayNumeros(1 To 6) As Integer
Dim ObtenerUnAleatorio As Integer

For i = LBound(ArrayNumeros) To UBound(ArrayNumeros)
    
SacaAleatorio:
                'Obtener un numero aleatorio desde 1-49 que NO este repetido
                ObtenerUnAleatorio = Int((49 * Rnd) + 1)
                For j = LBound(ArrayNumeros) To UBound(ArrayNumeros)
                    If ArrayNumeros(j) <> ObtenerUnAleatorio Then
                        Else
                            'Debug.Print "ESTA REPETIDO :" & ObtenerUnAleatorio
                            GoTo SacaAleatorio:
                    End If
                Next j
                
            ArrayNumeros(i) = ObtenerUnAleatorio
    'Debug.Print ArrayNumeros(i)
Next i

'-- Numeros aleatorios del 1 al 49 ordenados :
Dim ArrayNumerosOrdenada() As Integer
ArrayNumerosOrdenada = OrdenaMatriz(ArrayNumeros, True)

For i = LBound(ArrayNumerosOrdenada) To UBound(ArrayNumerosOrdenada)
    Debug.Print ArrayNumerosOrdenada(i)
Next i

Public Function OrdenaMatriz(ArrayIn, Ascending As Boolean)

Dim SrtTemp As Variant
Dim i As Long
Dim j As Long

If Ascending = True Then
    For i = LBound(ArrayIn) To UBound(ArrayIn)
         For j = i + 1 To UBound(ArrayIn)
             If ArrayIn(i) > ArrayIn(j) Then
                 SrtTemp = ArrayIn(j)
                 ArrayIn(j) = ArrayIn(i)
                 ArrayIn(i) = SrtTemp
             End If
         Next j
     Next i
Else
    For i = LBound(ArrayIn) To UBound(ArrayIn)
         For j = i + 1 To UBound(ArrayIn)
             If ArrayIn(i) < ArrayIn(j) Then
                 SrtTemp = ArrayIn(j)
                 ArrayIn(j) = ArrayIn(i)
                 ArrayIn(i) = SrtTemp
             End If
         Next j
     Next i
End If

OrdenaMatriz = ArrayIn

End Function