k.CellText(iRow, iCol) &lt;&gt; vLastItem(i) Or
                      bForce Then
                        vLastItem(i) = grdOutlook.CellText(iRow, iCol)
                        grdOutlook.AddRow iRow, "GROUP", , , True, i + 1
                        grdOutlook.CellDetails iRow, 14, vLastItem(i), , ,
                         vbButtonFace, , sFnt, , 16, i + 1
                        bForce = True
                     End If
                  End Select
               End If
            Next i
            iRow