cond should
        ' be swapped with the first:
        '    Fix - last version caused GPF as it fell off the end
        '    of the array..
        If (iItemCount = 2) Then
            For iCol = 1 To iColumns
               LSet vSortItems(iCol) = vItems(iCol, 1)
            Next iCol
            If pbGreater(vItems(), vSortItems(), 2) Then
               ' swap
               LSet tSortRow = tRows(1)
               LSet tRows(1) = tRows(2)
               LSet tRows(2) = tSortRow
               For iCol