astGroupItem &gt; 1) Then
            ' This item needs to be shuffled down
            ' until it reaches iLastGroupItem + 1
            LSet tSwap = m_tSort(i)
            For j = i To iLastGroupItem + 1 Step -1
               LSet m_tSort(j) = m_tSort(j - 1)
            Next j
            iLastGroupItem = iLastGroupItem + 1
            LSet m_tSort(iLastGroupItem) = tSwap
         Else
            iLastGroupItem = i
         End If
      End If
   Next i

End Sub

Public Sub Clear()
Attribute Clear.VB_De