Чистим в тексте фразы с прилагательными - Visual Basic .NET

Формулировка задачи:

Имеется текст с фразами через запятую (от 1 и более слов ). Необходимо удалить фразы где последнее слово прилагательное. Нужна функция, ниже код рабочий, но он длинный.

                    Листинг программы
                
 
                        
                          
                    
        Dim blockslov As String
        Dim Iword As String() = TextBox1.Text.Split(New String() {","}, StringSplitOptions.RemoveEmptyEntries)
        For i As Integer = 0 To Iword.Count - 1
            '   Игнорируем прилагательные
            If Microsoft.VisualBasic.Strings.Right(Iword(i).Trim, 2) <> "ый" _
                And Microsoft.VisualBasic.Strings.Right(Iword(i).Trim, 2) <> "ых" _
                And Microsoft.VisualBasic.Strings.Right(Iword(i).Trim, 2) <> "ые" _
                And Microsoft.VisualBasic.Strings.Right(Iword(i).Trim, 2) <> "ий" _
                And Microsoft.VisualBasic.Strings.Right(Iword(i).Trim, 2) <> "их" _
                And Microsoft.VisualBasic.Strings.Right(Iword(i).Trim, 2) <> "ой" _
                And Microsoft.VisualBasic.Strings.Right(Iword(i).Trim, 2) <> "ая" Then
                blockslov = blockslov + Iword(i).Trim & ", "
            End If
        Next
     '      Выводим оставшиеся слова
        TextBox2.Text = blockslov

В функции типа такого:

                    Листинг программы
                
Dim distracted() = {"ый", "ых", "ые", "ий", "их", "ой", "ая"}

В TextBox1.Text фразы, например так:

                    Листинг программы
                
блок, газоразрядный, мгновенный, напряжения лампы, электрический, мощность лампы, светильник, сеть

Должно остаться:

                    Листинг программы
                
блок, напряжения лампы, мощность лампы, светильник, сеть

Решение задачи: «Чистим в тексте фразы с прилагательными»

textual
                            Листинг программы 
                        
 
                        
                          
                    
        Dim blockslov As String = ""
        Dim Iword As String() = TextBox1.Text.Split(New String() {","}, StringSplitOptions.RemoveEmptyEntries)
        Dim distracted() = {"ый", "ых", "ые", "ий", "их", "ой", "ая"}
        For i As Integer = 0 To Iword.Length - 1
            Dim f As Boolean = True
            '   Игнорируем прилагательные
            For j As Integer = 0 To distracted.Length - 1
                If Microsoft.VisualBasic.Strings.Right(Iword(i).Trim, 2) = distracted(j) Then f = False : Exit For
            Next j
            If f Then blockslov &= Iword(i).Trim & ", "
        Next i
        '      Выводим оставшиеся слова
        TextBox2.Text = blockslov