Dim results = records.GroupBy(Function(t) t.Cells("R_BarCode").Value.ToString).[Select](Function(t) New With {Key .BarCode = t.Key, Key .SumPrezzo = t.Sum(Function(x) x.Cells("R_Prezzo").Value)})