Sub UniqueArray()
    
    Dim aintData() As Integer
    Dim intValue As Integer
    Dim intI As Integer
    Dim intJ As Integer
    Dim blnFlag As Boolean
        
    For intI =  1  To  10 
        Randomize
        ReDim Preserve aintData( 1  To intI)
Mark:
        blnFlag = False
        intValue = Int(( 10  * Rnd) +  1 )
        
        For intJ = LBound(aintData) To UBound(aintData) -  1 
            If aintData(intJ) = intValue Then
                blnFlag = True
                Exit For
            End If
        Next intJ
        
        If Not blnFlag Then
            aintData(intI) = intValue
            Debug.Print aintData(intI)
        Else
            GoTo Mark
        End If
    Next intI
End Sub