Dim essveCount As Integer = Model.SortedNews.Where(Function(x As NewsModel)
                                                        Return x.Company = "essve"
                                              End Function).Count + Model.NewsHeaders.Where(Function(x As NewsHeaderModel)
                                                                                             Return x.News.Company = "essve"
                                                                                                     End Function).Count