      Exit Sub
      Else
         DoGroup 0, sJunk(), eJunk()
      End If
   End If
      
   With grdOutlook.SortObject
      .Clear
      .SortColumn(1) = lCol
      If (grdOutlook.ColumnSortOrder(lCol) = CCLOrderNone) Or
       (grdOutlook.ColumnSortOrder(lCol) = CCLOrderDescending) Then
         .SortOrder(1) = CCLOrderAscending
      Else
         .SortOrder(1) = CCLOrderDescending
      End If
      grdOutlook.ColumnSortOrder(lCol) = .SortOrder(1)
      .SortType(1) = grdOutlook.ColumnSortType(lCol)