Rulleliste i dialogboks skal indeholde data fra dette array - 200 point!!

Hvordan får jeg dette array-indhold: XRngArray() ind i en rulleliste i en dialogboks?



Sub unikke()

Dim VRng As Range, XRng As Range
Dim VXBol As Boolean

Dim VRngArray() As Variant
Dim XRngArray() As Variant


Set VRng = Range(ThisWorkbook.Worksheets("Ark1").Range("A1"), ThisWorkbook.Worksheets("Ark1").Range("A65000").End(xlUp))

UniqueX = 1


VRngArray = VRng.Value


For i = 1 To UBound(VRngArray)

   
   
    ReDim Preserve XRngArray(UniqueX)

    VXBol = False
       
        For v = 1 To UBound(XRngArray)
       
            If XRngArray(v) = VRngArray(i, 1) Then
                VXBol = True
            End If
   
        Next

    If VXBol = False Then
       
        XRngArray(UniqueX) = VRngArray(i, 1)
    UniqueX = UniqueX + 1
    End If

Next

For l = 1 To UBound(XRngArray)
    Debug.Print XRngArray(l)
Next


'Sort array

    For lLoop = 0 To UBound(XRngArray)

      For lLoop2 = lLoop To UBound(XRngArray)

            If XRngArray(lLoop2) < XRngArray(lLoop) Then

                str1 = XRngArray(lLoop)

                str2 = XRngArray(lLoop2)

                XRngArray(lLoop) = str2

                XRngArray(lLoop2) = str1

            End If

        Next lLoop2

    Next lLoop

'ActiveSheet.Shapes("Drop Down 4").ListFillRange = XRngArray


End Sub