Randomize
                intNumberOfEntries = pointlist.ListCount
                
            For y = 1 To 2
                           
                For x = 0 To intNumberOfEntries - 1
                tmpText = pointlist.List(x)
                intRandomNumber = Int(intNumberOfEntries * Rnd)
                tmpText2 = pointlist.List(intRandomNumber)            '      "
                pointlist.List(x) = tmpText2
                pointlist.List(intRandomNumber) = tmpText             '      "
                Next x
            Next y