Вывод предложений регулярным выражением с условиями

TextBox9.Text = ""
            Dim boxstring As String = TextBox5.Text             '   Вносим код страницы в переменную
            Dim mTrim As String = ""                            '   В переменной текущее предложение
            Dim colpredlojen As String = 0
 
            ' Цикл вывода предложений
            textdescription = ""
            For Each m As Match In Regex.Matches(boxstring, "([А-Яa-я\ \-\,\[\]])+(\.+|\!|\?)", RegexOptions.IgnoreCase Or RegexOptions.Multiline Or RegexOptions.Singleline)
            '   Выбираем предложения с длиной > 120 и < 200 символов
            If Len(m.Value) > 50 And Len(m.Value) < 200 Then
                '   Делаем 1 букву заглавной в предложении
                mTrim = Strings.Left(m.Value.Trim, 1).ToUpper & Strings.Right(m.Value.Trim, Len(m.Value.Trim) - 1)
                    '   Проверяем 1 символ
                    If Strings.Left(m.Value.Trim, 1) <> "]" And Strings.Left(m.Value.Trim, 1) <> "," And Strings.Left(m.Value.Trim, 2) <> "," And Strings.Left(m.Value.Trim, 1) <> "-" And Strings.Left(m.Value.Trim, 1) <> "»" And Strings.Left(m.Value.Trim, 1) <> "·" Then
                        ' 
                        '   Дописываем хвостик у предложения"т.д"
                        If Microsoft.VisualBasic.Strings.Right(mTrim, 2) = "т." Then mTrim = mTrim & "д."
                        '   Дописываем хвостик у предложения"м."
                        If Microsoft.VisualBasic.Strings.Right(mTrim, 3) = "им." Then
                            '   Удаляем 3 последних символов
                            mTrim = Microsoft.VisualBasic.Strings.Left(mTrim, Len(mTrim) - 3)
                            '   Дописываем символы
                            mTrim = mTrim & "..."
                        End If
                        '   Дописываем хвостик у предложения "на рисунке."
                        If Microsoft.VisualBasic.Strings.Right(mTrim, 7) = "на рис." Then
                            '   Удаляем 7 последних символов
                            mTrim = Microsoft.VisualBasic.Strings.Left(mTrim, Len(mTrim) - 7)
                            '   Дописываем символы
                            mTrim = mTrim & "на рисунке."
                        End If
                        '   Выводим все предложения в переменную textdescription 
                        textdescription = textdescription + mTrim & vbNewLine '& vbNewLine
                        colpredlojen += 1
                    End If
                End If
        Next
        '   Все предложения в TextBox9
        TextBox9.Text = textdescription

If Strings.Left(m.Value.Trim, 1) <> "]" And Strings.Left(m.Value.Trim, 1) <> "," And Strings.Left(m.Value.Trim, 2) <> "," And Strings.Left(m.Value.Trim, 1) <> "-" And Strings.Left(m.Value.Trim, 1) <> "»" And Strings.Left(m.Value.Trim, 1) <> "·" Then